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I.  INTRODUCTION 

A.       BACKGROUND 

The  Naval  Postgraduate  School  (NTS)  utilizes  approximately  fifty  Zenith 
HZ- 100  microcomputers  m  the  microcomputer  laboratories  of  the  Computer  Science 
Department.  There  were  many  reasons  for  choosing  this  particular  computer,  foremost 
of  which  is  the  hardware  architecture  [Ref  1]  and  the  availabihty  of  support  software. 
The  H'Z-iOO's  central  processing  unit  (CPU)  includes  an  INTEL  8085  8-bit  processor 
and  an  INTEL  8088  I6-bit  processor.  The  simple  architecture  and  instruction  set  of 
the  8085  processor  supports  the  popular  CP,  M  operating  system  and  is  compatible 
with  8080  code.  The  more  complex  architecture  of  the  8088  processor  is  compatible 
with  8086  code  and  includes  more  internal  registers  (some  usable  as  either  8  or  16-bit), 
extended  addressing  modes,  and  a  more  complex  memory  management  scheme  using 
segment  registers.  The  8088  processor  supports  the  more  advanced  CP,  M-86  and  MS- 
DOS  operating  systems. 

An  important  feature  of  the  H/Z-lOO  is  its  display  versatihty.  The  basic  HZ- 100 
includes  an  internal  monochrome  display  and  allows  the  addition  of  an  additional 
external  color  monitor.  The  color  monitor  is  of  medium  resolution  with  640  horizontal 
and  225  vertical  pixels  (640  X  512  in  the  interlace  mode).  Three  64k  pages  of  video 
RAM  memor>'  provide  eight  colors  (or  eight  intensity  levels  with  a  monochrome 
monitor). 

A  primary  function  of  the  microcomputer  laboratory  is  to  support  computer 
science  courses  providing  special  emphasis  on  tactical  computer  applications. 
According  to  Department  of  Defense  poUcy  [Ref  2],  "The  Ada  programming  language 
shall  become  the  single,  common  computer  programming  language  for  defense  mission- 
critical  applications.  EtTective  1  January  1984  for  programs  entering  full-scale 
engineering  development,  Ada  shall  be  the  programming  language."  To  assist  in 
meeting  this  requirement.  NTS  provides  courses  which  include  the  use  of  Ada  in  the 
development  of  tactical  program  applications  programs.  Most  of  these  programs  are 
run  on  the  H,Z-I0O  computers  using  the  JANUS  Ada  compiler.  To  date,  several 
vaUdated  Ada  compilers  have  been  approved  for  specific  computer  systems,  with  many 
more  expected  to  be  approved  in  the  near  future.    However,  as  Patrice  Wagner  points 


out  [Ref.  3]  there  has  been  little  measurable  response  within  the  computer  graphics 
industr}-.  An  improvement  in  this  area  can  be  expected  with  the  acceptance  of  the  Ada 
Binding  to  the  Graphical  Kernel  System  (GKS)  [Ref.  4]  by  the  American  National 
Standards  Institute  (ANSI)  X3H3  conmuttee  on  graphics  standards.  However,  we 
cannot  sit  back,  and  wait  for  industry  to  provide  all  the  tools  necessary  to  conduct  Ada 
graphics  education  and  research.  Widespread  use  of  Ada  can  be  e.\pected  in  the  near 
future  and  with  that  use  there  will  be  increasing  requirements  for  individuals  with  Ada 
graphics  knowledge.  The  NPS  has  an  obligation  to  assist  the  Na\y  in  meeting  those 
educational  requirements. 

B.        PURPOSE 

It  is  the  intent  of  this  thesis  to  develop  an  Ada  language  graphics  programming 
capability  by  developing  a  low  level  design  and  partial  implementation  of  an  Ada 
graphics  library  which  can  be  expanded  to  include  a  subset  of  the  Ada  language 
binding  to  the  GKS.    Functions  to  be  included  will  be  those  primitives  necessarv'  for: 

•  clearing  the  screen 

•  setting  a  pixel 

•  drawing  a  line 

•  selecting  a  color 

•  filling  polygons 

•  cursor  control 

These  basic  primitives  will  be  implemented  using  8086  assembly  language 
embedded  in  an  Ada  package.  The  CP  \I-S6  operating  system  and  the  JANUS  .Ada 
compiler  will  be  used  for  this  implementation. 

It  is  expected  that  the  primary  use  for  this  software  will  be  in  courses  which 
emphasize  tactical  applications  of  computers.  It  is  becoming  more  and  more  common 
to  find  graphical  displays  in  tactical  systems.  The  ability  of  computers  to  provide 
graphical  displays  which  aid  in  tactical  decision  making  is  widely  recognized  and  the  list 
of  tactical  applications  utilizing  graphical  displays  can  be  expected  to  grow  as  faster 
and  better  graphics  displays  are  developed. 

It  is  anticipated  that  this  software  will  assist  in  gaining  an  insight  into  the 
feasibility  of  developing  a  GKS  implementation  for  Ada  on  a  microcomputer.  As  an 
immediate  benefit,  it  will  aid  in  the  de\"elopment  oi~  Ada  graphics  programs  on  the 
HZ- 100  computer. 
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C.       THESIS  ORGANIZATION 

Chapter  II  begins  with  a  brief  overview  of  the  architecture  of  the  II  Z-lOO 
computer.  The  overview  is  presented  to  assist  the  reader  in  understanding  the  selection 
and  implementation  of  the  graphics  algorithms.  Next  there  is  a  brief  discussion 
explaining  the  use  of  the  JANUS,  Ada  compiler  and  CP,  \I-S6  operating  system. 
Included  in  this  discussion  is  a  description  of  parameter  passing  procedures  in 
JANUS  Ada.  The  remainder  of  Chapter  II  is  devoted  to  providing  a  detailed 
description  of  the  implemented  graphics  routines. 

Chapter  III  provides  a  description  of  the  test/demonstration  programs  listed  in 
Appendices  B-E.  Also  included  in  this  chapter  is  an  evaluation  of  the  H,Z-100  color 
graphics  capability.    Shortcomings  and  system  hardware  perforniance  are  discussed. 

Chapter  IV  includes  recommendations  for  further  research  and  program 
development  using  the  H.Z-lOO  computer. 

Chapter  V  is  the  final  chapter  and  includes  the  conclusion  and  general  comments 
pertaining  to  the  use  of  microcomputers  and  Ada  in  graphics  programming. 

Appendix  A  is  a  user's  guide  which  describes  the  procedures  available  in  the  Ada 
graphics  library.  Also  included  are  some  programming  tips  on  usage  of  the  library 
procedures  and  sample  procedure  calls  are  provided  as  examples. 

Appendices  B-E  are  program  listings  of  demonstration  programs  written  in  Ada. 
They  are  provided  to  demonstrate  the  use  of  the  .Ada  graphics  library  as  well  as  serving 
as  a  supplement  to  the  user's  guide. 

Appendix  F  is  a  listing  of  the  specification  package  for  the  Ada  graphics  library". 
The  specification  package  defines  the  formats  of  all  externally  callable  library 
procedures. 

Appendix  G  is  the  assembly  code  listing  of  all  procedures  contained  in  the  Ada 
graphics  library. 
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II.  ALGORITHMS 

A.       H/Z- 100  ARCHITECTURE 

The  following  overview  of  the  H  Z-100  architecture  is  presented  in  order  to 
clarify  the  method  of  implementation  of  specific  algorithms.  Figure  2.1  is  a  block 
diagram  of  the  basic  architecture  of  the  H  Z-100  computer. 

NPS's  H:Z-100  computers  are  in  the  process  of  being  upgraded  to  include  the 
Model  ZV.\I-1330  color  monitor.  192k.  of  on-board  cpu  memorv'  and  three  64k  pages 
of  video  RAM. 

The  display  screen  is  formed  by  a  matrix  of  640  horizontal  and  225  vertical 
pixels.  Each  pixel  is  mapped  to  a  bit  in  each  of  the  three  color  planes  (red,  green,  and 
blue)  in  video  R.A.M.  Display  management  is  provided  by  the  video  processor's  CRT 
controller  (CRT-C). 

The  CRT-C  has  two  modes  of  operation;  the  character  based  mode  and  the  pixel 
based  mode.  In  the  character  based  mode,  the  CRT-C  is  programmed  for  nine  scan 
lines  per  character,  80  characters  per  line  and  25  lines  per  screen.  In  the  pixel  based 
mode,  the  CRT-C  is  normally  programmed  to  control  a  matrix  of  640  X  225  pixels. 

Mapping  of  video  RAM  to  the  screen  is  performed  by  the  CRT-C  to  allow 
scrolling  of  the  screen  and  management  of  displayable  nondisplayable  data.  Mapping 
of  the  display  to  physical  addresses  in  video  R.*\M  is  organized  such  that  128 
(numbered  0-127)  consecuti\'e  bytes  are  allowed  for  each  scan  line.  However,  only  SO 
of  the  128  bytes  are  used  to  control  display  of  the  640  pixels  per  scan  line.  Bytes 
80-127  of  each  line  must  not  be  used  or  erroneous  data  may  be  displayed. 
Additionally,  the  225  displayable  scan  lines  may  be  considered  to  be  in  sets  of  16  lines 
of  which  only  the  first  nine  lines  of  each  set  are  displayable. 

When  operating  in  the  character  based  mode,  the  CRT-C  is  prograinmed  to  map 
around  the  non-displayable  \ideo  R.AM.  However,  in  the  pixel  based  mode,  it  is 
necessary  to  incorporate  a  mapping  algorithm  into  graphics  routines.  This  means  that 
of  the  400  scan  lines,  only  225  are  displayable.  In  addition,  the  CRT-C  is  normally 
programmed  so  that  the  bottom  character  row  (9  scan  lines)  is  zeroed  during  vertical 
retrace  time.  This  is  done  to  keep  uninitialized  data  from  being  displayed  during 
scrolling.     This   means   that   onh'   24    o[  the   25   character   rows   or   216   of  the   225 
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Figure  2.1     H'Z-lOO  Block  Diagram. 
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displayable  scan  lines  actually  display  data.  The  Ada  graphics  library  has  been 
designed  to  work  within  these  restrictions  in  order  to  maintain  compatibility  with 
existing  H,Z-100  software.  Figure  2.2  illustrates  the  display  matri.x  including  the  scan 
line  and  pixel  numbering  system. 
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Figure  2.2     Display  Matrix. 

There  are  two  ways  in  which  to  control  writing  into  the  individual  color  planes. 
The  first  method  is  by  programming  the  video  control  register  of  the  video  logic  board. 
With  this  method,  when  a  write  enabled  color  plane  is  accessed,  all  write  enabled  color 
planes  are  simultaneously  written  to.  For  example,  if  all  three  color  planes  are  write 
enabled  and  the  green  color  plane  is  written  to,  then  the  corresponding  addresses  in  the 


14 


blue  and  red  color  planes  will  also  be  written  to.  However,  this  feature  was  found  to 
be  unsatisfactorv'  when  constructing  a  graphics  picture  consisting  of  multiple  colors 
and  adjacent  or  overlapping  objects.  Under  these  conditions,  it  was  discovered  that  the 
only  color  plane  which  could  be  guaranteed  to  contain  correct  data  was  the  one  which 
was  directly  written  to.  Therefore,  the  algorithms  implemented  in  the  Ada  grapiiics 
librarv'  utilize  the  second  method  which  involves  direct  control  over  each  of  the  three 
color  planes.  This  means  that  the  implemented  algorithms  must  access  all  three  color 
planes  for  each  pixel  that  is  set.    [Ref  1:  pp.  4.30-4.38] 


TABLE  1 
COLOR  PLANE  ADDRESSES 

COLOR  PLANE  RAM  ADDRESSES 

blue  OCOOOO  -  OCFFFF 

reci  ODOOOO  -  ODFFFF 

green  OEOOGO  -  OEFFFF 


To  produce  color,  the  video  R.AM  is  divided  into  three  main  colors:  red.  green, 
and  blue.  Video  R.A.M  memon."  mapping  of  the  three  color  planes  is  provided  in  Table 
1  with  all  addresses  in  hexadecimal.  The  pixel  seen  on  the  color  monitor  is  actually 
composed  of  three  superimposed  pixels,  one  in  each  color  plane.  By  selecting 
combinations  of  the  three  basic  colors,  eight  dilTerent  colors  may  be  displayed  as 
indicated  by  Table  2  . 

B.       JANUS/ADA 

An  overview  of  the  JANUS  Ada  compiler  [Ref.  5]  and  the  CP,'M-S6  operating 
system  [Ref.  6]  relating  to  the  implementation  of  the  Ada  graphics  librar>'  is  presented 
to  assist  the  reader  in  understanding  the  methods  used  to  implement  the  graphics 
algorithms.  The  graphics  routines  are  available  to  an  Ada  language  program  by 
linking  to  librar\'  routine  ADAGR.A.PLI.LIB  {Appendix  F). 

ADAGR.'\PH.LIB  is  implemented  as  an  Ada  specification  package.  That 
package  contains  the  specifications  of  the  callable  librar}'  procedures  plus  a  list  of  the 
variables  used  by   the  Ada   graphics   libran.'   assembly  code.     The  assembly   code   is 
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included  in  Ada  assembly  package  ADAGR.A.PH.AS\i  (Appendix  G).    The  following 
steps  are  used  to  compile,  assemble,  and  link  the  Ada  graphics  library'. 

(1)  J.AN'US  ADAGFLAPH.LIB 

(2)  JASMS6  ADAGR.API-1 

(3)  JLINK  ADAGFL-XPH 


TABLE  2 

COLOR  TABLE 

GREEN 

RED 

BLUE 

DISPLAY  COLOR 

0 

0 

0 

black 

0 

0 

1 

blue 

0 

1 

0 

red 

0 

1 

1 

magenta 

1 

0 

0 

green 

1 

0 

1 

cyan 

1 

1 

0 

yellow 

1 

1 

1 

white 

Parameters  are  passed  in  Ada  by  pushmg  them  onto  the  system  stack.  Discrete 
and  access  data  type  parameters  of  mode  IN  are  passed  by  value.  AW  other  data  type 
parameters  and  modes  are  passed  by  reference.  Upon  entn.'  to  a  procedure,  the  top  of 
the  stack  contains  the  return  address.  Parameters  or  parameter  addresses  appear  on 
the  stack  with  the  last  parameter  nearest  the  top  of  the  stack.  Figure  2.3  is  an  example 
illustrating  the  format  of  a  procedure  specification  and  the  corresponding  location  of 
parameters  on  the  system  stack  when  the   procedure  is  executed. 

If  the  parameters  passed  are  only  of  mode  IN.  then  the  assembly  procedure  must 
remove  those  parameters  from  the  stack  and  leave  only  the  return  address  on  top  of 
the  stack  before  executing  a  RET  instruction  to  return  from  the  procedure  to  the 
calling  program.  If  the  parameter  list  includes  any  mode  OLT  or  IN  OLiT  parameters, 
then  the  stack  must  be  in  the  same  configuration  upon  exit  from  the  procedure  as  it 
was  upon  entn.'. 

When  it  is  desired  to  access  parameters  on  the  stack  without  altering  the  stack 
contents,  then  the  BP  register  should  be  used.  The  following  steps  illustrate  how  this 
can  be  performed. 

(1)   MOV   BP,  SP      ;Copy  SP  register  to  BP  register 
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procedure  INOUIRE_COLOR( x_pos,  y_pos:  in  INTEGER; 

color:  out  INTEGER); 


SP > 

SP+2 > 

SP+4 > 


< Top  of  Stack 

Return  Address  | 

color;  address  | 

y_pos;  value    | 

x_pos ;  value    | 


Figure  2.3     Parameter  Passing. 

(2)  MOV      AX,     [BP  +  2]     ;iyiove    last   variable    to   AX    register 

(3)  MOV      BX,     [BP+1]     ;Move    next    to    last   variable    to    BX 

C.       GRAPHICS  ALGORITHMS 

The  following  paragraphs  provide  a  detailed  explanation  of  each  graphics  routine 
in  the  Ada  graphics  library'  and  the  algorithms  used  to  implement  those  routines. 
Several  of  the  low  level  subroutines  used  to  implement  the  libran."  are  not  available  to 
the  user  and  are  therefore  not  listed  in  the  User's  Guide  (Appendix  A).  Only  those 
graphics  routines  that  have  an  apparent  use  in  an  Ada  language  program  were  made 
externally  callable. 

1.  Clear  Screen  (CLS) 

The  CLS  routine  will  clear  the  screen  in  one  frame  time  (approximately  16.7 
ms  for  60  Hz  operation).  The  CLS  algorithm  [Ref  1:  p.  4-46]  is  described  in  the 
following  steps: 

(1)  Input  and  save  the  video  status  from  I  O  port  DS(hex). 

(2)  Blank  the  screen  by  outputting  OF(hex)  via  10  port  D8(hex). 

(3)  Output  a  "0"  in  bit  3  of  the  B  control  port  DB(hex).  This  sianals  the  video 
controller  that  the  bit  planes  will  be  set  to  zero.  Tins  step  is  performed  bv 
executing  an  input,  mouify.  and  output  sequence. 

(4)  Output  a  "0"  to  bit  3  of  the  A  control  port  D9(hex}.  This  enables  the  video 
processor's  CLRSCRN  signal. 

(5)  Wait  for  one  frame  period  to  allow  time  to  reset  all  of  video  R.-\M. 

(6)  Output  a  "1"  to  bit  3  of  port  D9(hex).   This  disables  the  CLRSCRN  signal. 
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(7)      Restore  video  status  that  was  saved  in  step  1  bv  outputtina  the  saved  status 
via  port  DS(hex). 

2.  Color  Selection 

When  the  color  routine  is  called,  it  is  passed  an  integer  identifying  the  selected 
color.  In  normal  operation,  once  a  color  has  been  selected,  it  remains  the  system  color 
until  changed  by  another  call  to  the  color  procedure. 

The  color  procedure  uses  the  color  code  parameter  to  perform  two  basic 
functions.  First,  it  sets  each  of  the  three  color  plane  variables  to  base  addresses  which 
will  be  used  by  other  procedures  to  initialize  the  E  segment  register  for  addressing  the 
the  required  color  planes.  Second,  a  control  word  ("S  hex)  is  output  to  the  video 
control  register  via  I  O  port  DS(hex).  The  control  word  disables  the  simultaneous 
write  capability  of  the  video  controller.  Table  3  lists  the  data  used  to  control  color 
selection. 


/ 

TABLE  3 

COLOR  CONTROL 

Color  Code 

Color 

Var.  1 

Var.  2 

Var.  3 

0 

white 

COOO 

DOOO 

EOOO 

1 

cyan 

COOO 

EOOO 

EOOO 

2 

magenta 

COOO 

DOOO 

DOOO 

3 

blue 

COOO 

COOO 

COOO 

4 

yellow 

DOOO 

EOOO 

EOOO 

5 

green 

EOOO 

EOOO 

EOOO 

6 

red 

DOOO 

DOOO 

DOOO 

7 

black 

In  normal  operation,  control  word  bits  0.  1,2."  are  set  to  "0"  bit  3  is  set  to 
"1"  and  bits  4-6  are  used  to  control  the  simultaneous  write  capability  of  video  R.AM. 
The  color  routine  does  not  alTect  the  contents  of  the  E  segment  register,  but  simply 
initializes  variables  which  will  be  used  to  modify  the  E  segment  register  as  required. 
This  is  done  to  maintain  compatibility  with  other  M  Z-100  software  which  uses  the  E 
segment  register,  e.g..  the  standard  I.O  library. 
3.  Video  Ram  Addressing 

Mapping  of  the  video  to  the  screen  is  accomplished  in  two  steps.    The  first  is 
performed  by  the  ADJ_SL  procedure  which  accepts  a  Y  position  in  the  range  0-215 
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and  maps  that  position  to  a  displayable  scan  line.  This  mapping  is  described  by  the 
equation  Scan_Line_Number  =  Y  +  (Y  Mod  16)''-7.  This  function  is  implemented  by  a 
simple  counter  which  adds  seven  to  the  scan  line  coimt  for  each  block  of  16  lines.  Step 
two  is  performed  by  the  REL_\TD_ADDR  procedure.  This  procedure  uses  the  X 
position  and  scan  line  number  to  calculate  the  corresponding  relative  byte  address  in 
•video  R.A.M.  This  is  a  relative  address  since  it  is  independent  of  the  color  plane. 
Relative  byte  addresses  are  calculated  using  the  formula: 

Relative_Address   =   Y    *    128    +    X  Mod   8. 
Prior  to  address  calculation,  error  checking  is  performed  to  insure  that: 

0<=X<=639  and  0<=Scan_Line_Number<=376. 

4.  Pixel  Display 

Di-splaymg  of  individual  pixels  is  performed  by  procedure  SET_PIXEL. 
Procedure  SET_PIXEL  accepts  an  (X.Y)  coordinate  and  performs  the  following  steps: 

(1)  Calls  procedure  ADJ_SL  to  map  the  y  coordinate  to  a  displayable  scan  line. 

(2)  Calls  procedure  REL_\TD_ADDR  to  get  the  relative  byte  address. 

(3)  Calculates  the  relative  bit  position  within  a  byte  based  on  the  x  coordinate. 

(4)  Initializes  segment  E  to  provide  the  base  address  for  the  desired  color  plane. 

(5)  Sets  the  selected  pixel  by  writing  to  the  relative  address. 

(6)  Repeats  steps  4  and  5  for  each- of  the  three  color  plane  variables. 

5.  Line  Drawing 

Line  drawing  may  be  performed  by  either  procedure  DR.'\W_LINE  or 
procedure  DR.'\W_\ILINE.  The  two  procedures  use  the  same  algorithm  for  line 
drawing  with  the  difierence  being  in  the  way  that  intersecting  lines  are  displayed. 
Procedure  DR.AW_LIXE  always  displays  the  most  recently  drawn  line  on  top  while 
procedure  DR.A.W_MLINE  mixes  the  colors  of  crossing  lines  at  the  point  of 
intersection.  The  line  drawing  algorithm  is  an  adaptation  of  a  general  integer  digital 
diOerential  analyzer  {integer  DD.A)  algorithm  described  by  Marc  Berger  [Ref  7:  pp. 
41-45].  The  general  integer  DD.A  has  been  expanded  from  four  to  six  cases  and  a 
smoothing  function  has  been  included.  The  two  additional  cases  were  added  to  handle 
the  special  cases  where  a  line  is  either  vertical  or  horizontal.  The  smoothing  function 
was  added  to  improve  symmetry  in  the  staircase  etlect  which  is  inherent  with  raster 
scan  displays. 

The  integer  DD.A  algorithm  is  an  iterative  process  which  operates  by  taking 
unit  steps  along    the  X  and,  or  Y  axis  beginning  at  line  start  and  continuing  to  line  end. 
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The  direction  of  each  step  is  determined  by  an  error  variable  which  identifies  whether 
the  present  position  is  above  or  below  the  ideal  line.  After  each  step,  the  error  variable 
is  updated  based  on  the  direction  of  movement.  The  initial  value  of  the  error  variable 
is  deternuned  by  the  smoothing  function  which  biases  the  error  variable  so  that  the 
first  pixel  step  m  one  axis  is  delayed  based  on  the  slope  of  the  line.  Without  this  bias 
the  DDA  algorithm  frequently  makes  an  erroneous  first  move.  An  example  of  an 
extreme  case  illustrates  this  point.  For  example,  if  a  near  horizontal  line  with  a  single 
pixel  change  in  Y  is  drawn  by  the  unbiased  algorithm  the  pixel  step  will  occur  at  line 
start.  However,  in  the  biased  algorithm  the  pixel  step  will  occur  at  the  approximate 
midpoint  of  the  line.  This  provides  an  obvious  enhancement  in  symmetn.'  to  a  staircase 
line. 

Implementation  of  the  six  cases  in  the  line  drawing  algorithm  assumes  that  the 
input  coordinates  are  ordered  so  that  Y_START  <  =  Y_END.  This  ordering  is 
enforced  by  the  line  drawing  procedure  prior  to  plotting  a  line. 

In  the  description  of  the  six  cases  which  follows,  initial  values  of  X  and  ^'  are 
respectively  X_START  and  Y_START  and  the  following  definitions  apply. 

•  X         X  coordinate 

•  Y         Y  coordinate 

•  X_START   X  coordinate  of  line  start 

•  Y_START    Y  coordinate  of  line  start 

•  X_END     X  coordinate  of  line  end 

•  Y_END      Y  coordinate  of  line  end 

•  DX         X_E^ro  -  X_START 

•  DY         Y_END  -  Y_START 

•  E         error 

(1)   DY  =  0. 
This  is  a  horizontal  line, 
initialize 
X: =X_START 
Y: =Y_START 
end  initialize 
repeat  until  (X=X_END) 
X: =X+1 
plot(X,Y) 
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end  repeat 

(2)  DY  <=  DX,  DX  >  0,  and  DY  >  0. 

This  is  a  line  with  positive  slope  between  0  and  1. 
initialize 
X: =X_ START 
Y: =Y_START 
E: =DX/(DY+1) 
end  initialize 

repeat  until  ( X=X_END  &   Y=Y_END) 
if  (E<0)  then 
X: =X+1 
E: =E+DY 
otherwise 
X: =X+1 
Y: =Y+1 
E: =E-DX+DY 
end  if 
end  repeat 

(3)  DX  <  DY,  DX  >  0,  and  DY  >  0. 

This  is  a  line  with  positive  slope  greater  than  1. 
initialize 

X: =X_START 

Y: =Y_START 

E: =DY/(DX+1) 
end  initialize 
repeat  until  ( X=X_END  &   Y=Y_END ) 

if  (E<0)  then 


X: 

=X+1 

Y: 

=Y+1 

E: 

=E-DX+ 

DY 

o 

therwise 

Y: 

=Y+1 

E: 

=E-DX 

e 

nd 

if 

end 

repeat 
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(  4)   DX  =  0. 

This  is  a  vertical  line, 
initialize 
X: =X_ START 
Y: =Y_START 
end  initialize 
repeat  until  (Y=Y_END) 

Y: =Y+1 
end  repeat 
(5)   BY  >=  ABS(DX),  DX  <  0 ,  and  DY  <  0. 
This  is  a  line  with  negative  slope  between  -1  and  0. 
initialize 
X: =X_ START 
Y: =Y_ START 
E: =DX/(DY+1) 
end  initialize 

repeat  until  ( X=X_END  &   Y=Y_END) 
if  (E<0)  then 
X: =X-1 
E: =E+DY 
Otherwise 
X: =X-1 
Y:  =Y+1 
E: =E+DX+DY 
end  if 
end  repeat 
(5)   ABS(DX)  <  DY,  DX  <  0 ,  and  DY  <  0. 
This  is  a  line  with  negative  slope  less  than  -1. 
initialize 
X: =X_START 
Y: =Y_START 
E: =DY/(DX+1) 
end  initialize 

repeat  until  (  X=X_END  &   Y=Y_END ) 
if  (E<0)  then 


X:=X-1 

Y:  =Y+1 

E: =E+DX+DY 
otherwise 

y:  =Y+1 

E: =E+DX 
end  if 
end  repeat 

6.  Circle  Dra^ving 

Circle  drawing  is  performed  by  passing  the  (X.Y)  coordinate  of  the  circle 
center  and  a  radius  to  procedure  CIRCLE.  The  algorithm  executed  by  the  circle 
drawing  routine  is  an  implementation  of  Bresenham's  circle  algorithm  described  by 
Hearn  and  Baker  [Ref  S:  pp.  67-69].  In  this  implementation,  the  algorithm  has  been 
modified  to  include  a  correction  factor  to  compensate  for  the  X:Y  pixel  ratio  of  the 
raster  display. 

Bresenham's  algorithm  takes  advantage  of  the  symmetr>'  of  a  circle  in 
providing  an  etficient  incremental  method  for  plotting  a  circle.  In  this  algorithm,  eight 
points  are  plotted  for  each  parameter  calculation.  Although  multiplications  are 
required  in  parameter  calculations,  the  multiplier  is  a  power  of  2.  so  all  multiplications 
can  be  reduced  to  a  less  costly  shift  operation.  Figure  2.4  is  a  flow  chart 
representation  of  the  implemented  version  of  Bresenham's  algorithm. 

7.  Color  Testing 

The  color  of  an  individual  pixel  may  be  determined  by  passing  an  (X.Y) 
coordinate  to  procedure  INQUIRE_COLOR.  This  procedure  will  determine  the  pixel 
color  and  return  an  integer  value  defining  the  color  code.  Color  codes  are  Usted  in 
Table  2  . 

The  color  testing  algorithm  uses  the  (X.^")  coordinate  to  calculate  a  relative 
byte  address.  It  then  uses  the  X  coordinate  to  generate  a  bit  mask  to  identify  the 
specific  bit  location  within  a  byte.  The  relative  byte  address  and  bit  mask  are  then 
used  to  test  the  corresponding  address  in  each  of  the  three  color  planes.  This  test 
identifies  the  color  components  contained  in  that  pixel  and  a  color  code  is  returned  to 
the  caUing  program. 
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START 


INIT.  VARIABLES 
X:=0 

Y:=RADIUS 
P:=3-2«RADnJS 


-Bs»> 


1 


PLOT  CIRCLE 

SET_PIXEL (X_CENTER  +X 
SET_PIXEL (X_CENTER -X 
SET_PIXEL (X_CENTER  +X 
SET_PIXEL (X_CENTER -X 
SET_PIXEL (X_CENTER  +Y 
SET_PIXEL (X_CENTER-Y 
SET_PIXEL (X_CENTER  +Y 
SET  PIXEL (X  CENTER -Y 


POINTS 

,  Y_CENTER+Y/2) 
,  Y_CENTER+Y/2) 
,  Y_CENTER-Y/2) 
,  Y_CENTER-Y/2) 
,  Y_CENTER+X/2) 

,  Y_CENTER+X/2) 
,  Y_CENTER-X/2) 
,    Y  CENTER-X/2) 


^»-   P:=P+4«(X-Y)+10 


Y:=Y-1 


Figure  2.4     Bresenhams  Circle  Algorithm. 
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S.  Area/Polygon  Filling 

Filling  may  be  accomplished  by  calling  either  the  procedure 
BOUNDARY_FILL  or  procedure  AREA_FILL.  Both  of  these  procedures  use 
algorithms  based  on  a  4-connected  boundary-fill  algorithm  described  by  Hearn  and 
Baker  [Ref.  S:  pp.  92-93].  The  4-connected  boundary-fill  algorithm  accepts  as  inputs 
the  (X.Y)  coordinate  of  an  interior  point  of  an  area  bounded  by  the  specified  boundary 
color  and  a  fill  color.  Starting  at  the  initial  (X.Y)  coordinate,  each  of  the  four 
neighboring  points  [{X+  l.Y).  (X-l.Y),  (X.Y+  1).  (X,Y-1)]  are  tested.  If  the  point  is  of 
a  difTerent  color  than  the  boundary,  then  it  is  set  to  the  fill  color  and  neighbors  of  the 
new  point  are  tested.  This  procedure  continues  until  all  points  within  the  bounded 
area  have  been  tested.  Figure  2.5  is  a  recursive  Pascal  4-connected  boundary-fill 
procedure  from  Hearn  and  Baker  [Ref  S:  p.  93].  which  forms  the  basis  for  the 
following  procedures. 


procedure  boundary_f i 11( x,  y,    fill_color< 

boundary_color:  integer); 
var  present_color:  integers- 
begin 
present_color  :=  inquire_color( x,  y) ; 
if  ( present_color  <>  boundary  color)  and 
( present_color  <>  fill_colory  then 
begin 


set_pixel(x.  y,  fill_color); 
boundary_f iiir x+1 / 


^_         .  Y'    fill_color/  boundary_color ) ; 
boundary_f ill( x-1)  y,    fill_coLor,  boundary_color 


end 
end; 


boundary_f ili( X,  y+1,  fill_color,  boundary_color ) ; 
boundary_f ill( x,  y-1/  fill_color,  boundary_color ) ; 


Figure  2.5     Pascal  Boundar\'-Fill  Procedure. 

Procedure  BOUNDARY_FILL  is  a  recursive  routine  whose  input  parameters 
include  a  beginning  (X.Y)  coordinate,  a  fill  color,  and  a  boundarv*  color.  This  routine 
uses  the  4-connected  fill  algorithm  to  fill  an  area  bounded  by  the  specified  boundary 
color. 

Procedure  AREA_FILL  is  a  recursive  routine  whose  input  parameters  include 
only  a  beginning  (X.Y)  coordinate  and  a  fill  color.  This  routine  uses  the  4-connected 
fill  algorithm  to  fill  a  contiguous  area  of  the  same  color  as  that  at  the  beginning  (X.Y) 
coordinate. 
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The  actual  implementation  of  each  of  the  two  fill  procedures  is  subdivided  into 
two  procedures.  The  first  procedure  initializes  constant  variables  and  then  calls  the 
second  procedure.  The  second  procedure  is  used  for  successive  recursive  calls.  This 
technique  nunimizes  the  number  of  parameters  which  must  be  passed  on  each 
successive  recursive  call. 

An  individual  call  to  either  of  the  fill  procedures  can  fill  an  area  of  at  most  a 
few  square  inches.  Attempting  to  fill  a  larger  area  may  result  in  a  stack  overflow  error. 
This  is  an  implementation  limitation  which  can  be  circumvented  by  subdividing  a  large 
area  into  smaller  areas,  each  of  which  may  be  filled  separately.  An  exact  upper  limit 
on  the  size  of  an  area  which  may  be  filled  by  a  single  call  to  a  fill  procedure  is  diOlcult 
to  predict  since  it  depends  on  the  starting  point  within  a  specified  area.  Additionally, 
area  filling  is  an  inherently  slow  process  due  to  the  large  number  oi"  calculations 
involved. 

9.  Cursor  Control 

The  "  +  "  symbol  is  used  to  represent  a  graphics  cursor.  Cursor  positioning  is 
controlled  by  procedures  SET_CURS  and  RESET_CURS.  Procedure  SET_CURS 
accepts  an  (X.Y)  coordinate  and  displays  a  cursor  centered  at  that  coordinate. 
Procedure  RESET_CURS  accepts  an  (X.Y)  coordinate  as  input  and  erases  a  block  of 
addresses  surrounding  that  coordinate.  Both  procedures  afiect  only  the  color  planes 
that  are  enabled  by  the  current  system  color. 

Management  of  the  cursor  display  and  positioning  is  a  responsibility  of  the 
user  program.  A  cursor  is  not  automatically  displayed  nor  is  there  a  limit  on  the 
number  of  cursor  symbols  which  may  be  displayed  concurrently. 

The  cursor  symbol  is  composed  of  nine  pixels  with  the  center  of  the  cursor 
being  the  reference  point  for  positioning.  In  order  to  be  able  to  position  the  cursor  at 
any  (X.^")  screen  coordinate,  it  is  necessar}'  to  consider  individual  components  of  the 
cursor.  The  vertical  dimension  (5  pixels)  of  the  cursor  spans  five  ditTerent  relative  byte 
addresses  in  video  R.AM.  Additionally,  the  horizontal  dimension  (5  pixels)  of  the 
cursor  may  require  an  additional  byte  of  memor\'.  Whether  an  additional  byte  is 
required  depends  on  the  relative  position  within  a  byte  of  the  cursor  center.  If  the 
cursor  center  is  near  either  end  of  a  byte,  then  either  the  next  lower  or  next  higher  byte 
from  cursor  center  will  also  be  required  to  display  the  cursor. 

The  set  cursor  algorithm  uses  the  (X."\")  coordinate  to  calculate  five  relative 
byte  addresses.    These  addresses  represent  a  block  on  the  screen  which  will  contain  the 
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cursor.  The  algorithm  then  uses  the  X  coordmate  to  determine  which  of  the  eight  hit 
positions  within  a  byte  represents  cursor  center.  Then  one  of  eight  possible  bit 
patterns  is  generated  to  represent  the  cursor.  Resetting  a  cursor  requires  less  program 
steps  since  a  block  of  seven  relative  byte  addresses  are  erased  without  regards  to  the 
exact  position  of  the  cursor  within  the  block. 
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in.  PERFORMANCE  AND  EVALUATION 

A.  DEMONSTRATION  PROGRAMS 

Four  demonstration  programs  are  provided  m  Appendices  B-E.  Those  programs 
along  with  the  user's  guide  m  Appendix  A.  will  aid  the  user  in  writing  graphics 
programs  using  the  Ada  language. 

1.  Program  AGTESTl 

Program  AGTESTl  draws  a  test  pattern  demonstrating  the  use  of  color 
selection,  line  drawing,  circle  drawing,  and  filling.  This  test  uses  ADAGR^APH 
procedures  COLOR.  SET_CURS.  CIRCLE.  DR.\\V_LINE,  B0LNDARV_F1LL.  and 
AREA_FILL. 

2.  Program  AGTEST2 

Program  AGTEST2  draws  a  pattern  consisting  of  two  sets  of  curves  and  a 
color  wheel  illustrating  the  eight  available  colors.  AGTEST2  uses  ADAGR.APM 
procedures  COLOR.  DR.A\V_LINE.  DR.A\V_MLINE,  CIRCLE,  and  AREA_FILL. 

3.  Program  AGTEST3 

Program  AGTEST3  demonstrates  interactive  control  of  the  graphics  cursor. 
The  user  is  asked  repetitively  to  enter  an  (X.Y)  coordinate.  The  program  then  displays 
a  cursor  centered  at  that  coordinate  and  erases  the  previous  cursor. 

4.  Program  AGTEST4 

Program  AGTEST4  begins  by  drawing  a  circle  of  the  approximate  maximum 
area  (approximately  se\'en  square  inches)  that  can  be  filled  by  a  single  call  to  one  of 
the  fill  procedures.  It  then  fills  the  circle  and  goes  on  to  demonstrate  how  polygons 
may  be  drawn  by  setting  resetting  individual  pixels.  It  also  demonstrates  filhng  an  area 
containing  an  object.  AGTEST4  uses  ADAGR.\PH  procedures  COLOR. 
SET_PIXEL,  RESET_P1XEL,  CIRCLE.  BOL'NDARY_FILL.  and  AREA_FILL. 

B.  ADA  GRAPHICS  LIBRARY  LIMITATIONS 

The  Ada  graphics  library  presented  in  this  thesis  was  developed  as  a  prototype. 
Limitations  of  the  library  procedures  should  not  cause  significant  problems  to  the  user 
as  long  as  the  guidelines  presented  in  the  user's  guide  (Appendix  A)  are  followed.  The 
only  known  procedures  which  can  cause  a  catastrophic  failure  if  limits  are  exceeded  arc 
the    fill    procedures.     The    fill    procedures    can    fill    at    most    a    contiguous  .area    of 
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approximately  seven  square  inches.  Even  filling  a  seven  square  inch  area  may  cause  an 
error  if  the  starting  point  is  not  near  the  center  of  the  area.  However,  if  the  user  will 
limit  the  size  of  contiguous  areas  to  be  filled  to  approximately  3—1  square  inches,  then 
the  probability  of  failures  is  ver\-  low.  The  reason  for  this  hmitation  is  that  the  till 
routines  are  implemented  as  recursive  procedures.  As  a  recursive  procedure,  each  level 
of  recursion  requires  that  three  more  parameters  be  pushed  onto  the  system  stack. 
Attempting  to  fill  too  large  an  area  simply  results  in  a  stack  overflow. 

Another  area  of  inconvenience  for  the  user  may  occur  in  attempting  to  use  the 
graphics  librar\'  along  with  other  libraries,  e.g..  the  standard  10  libran.'.  The  standard 
10  library'  procedure  GET  automatically  causes  scrolling  of  the  display  screen  by  one 
character  row  each  time  it  is  executed.  This  is  an  obvious  problem  when  used  in 
concurrence  with  a  fixed  position  graphics  display. 

C.  H/Z-lOO  HARDWARE  LI^^TATIONS 

A  potential  problem  area  for  the  user  is  due  to  the  limited  number  of  colors  (S) 
available  for  display.  This  may  be  particularly  inconvenient  when  writing  interactive 
programs  using  the  graphics  cursor  or  any  other  symbols  which  are  to  be  moved  within 
the  display.  Management  of  movable  objects  can  become  verv'  costly  in  terms  of  both 
processing  time  and  amount  of  program  code.  The  H'Z-100.  while  comparable  to 
many  other  microcomputers,  is  still  quite  slow  in  displaying  a  complex  graphics  picture. 
One  method  of  optimizing  the  management  of  moving  objects  in  the  display  is  to 
restrict  those  objects  to  a  dedicated  color  plane.  If  this  is  done,  then  updating  the 
position  of  a  moved  object  can  be  done  without  disturbing  the  graphics  objects  defined 
in  the  other  color  planes.  A  disadvantage  of~  this  approach  is  that  there  are  only  three 
color  planes  available  to  begin  with  and  by  dedicating  one  color  plane  to  something 
like  a  cursor  reduces  the  colors  available  for  other  objects  from  eight  to  four. 

D.  T1^^NG  MEASUREMENTS 

Table  4  provides  a  summar\'  of  timing  measurements  performed  to  determine 
average  graphics  processing  times  for  the  most  critical  operations.  Times  represented 
in  the  table  are  average  times  that  one  would  expect  to  encounter  in  a  call  to  Ada 
graphics  library'  procedures  when  drawing  a  graphics  picture. 

The  fill  procedures  are  quite  slow  due  to  the  large  number  of  steps  involved  in 
testing  and  setting  each  pixel  and  the  additional  overhead  related  to  a  recursive 
procedure.     The    timing    differences    between    drawing    horizontal  vertical    lines    and 
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TABLE  4 

PERFORMANCE  RESULTS 

Operation 

Time 

oer  Pixel 

(  ms) 

Fill 

3 

Draw  Line 

Horiz./Vert. 
Diagonal 

.54 
.  64 

Set/Reset  Pixel 

.  58 

diagonal  lines  is  due  to  the  two  additional  cases  which  were  implemented  in  the  line 
drawing  algorithm.  Those  cases  were  added  to  handle  the  special  cases  where  a  line  is 
either  vertical  or  horizontal.  In  those  cases,  since  the  slope  of  the  line  is  not  used  in 
plotting  the  line,  less  calculations  are  required  than  when  plotting  a  diagonal  line. 

Setting  resetting  of  individual  pixels  by  all  of  the  graphics  procedures  is  slowed 
by  the  overhead  in  address  calculation  of  the  bit  mapped  display.  This  is  primarily  a 
weakness  in  the  design  of  the  video  processor  of  the  H,Z-100.  However,  it  would  be 
interesting  to  see  if  a  significant  speedup  could  be  realized  if  a  lookup  table  was  used  to 
aid  in  pixel  addressing  instead  of  a  pure  mathematical  addressing  algorithm. 
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IV.  RECOMMENDATIONS  FOR  FUTURE  DEVELOPMENT 

Any  future  additions,  modifications  to  the  Ada  graphics  library  should  consider 
the  following: 

(1)  The  feasibility  of  implementing  a  nonrecursive  fill  routine. 

(2)  Development  and  implementation  of  difTerent  I  O  procedures  that  are  more 
compatible  with  a  graphics  displav  to  replace  those  in  the  standard  I  O 
Ubrarv.  In  particular,  these  procedures  should  allow  placement  of 
alphanumeric  svmbols  at  anv  screen  coordinate,  not  just  tlie  predefined 
character  positions,  Anv  scrolling  o[  the  screen  should  also  be  strictlv  under 
the  control  of  the  user  program. 

(3)  The  possibiiitv  of  optimizing  some  of  the  existing  procedures.  For  example, 
perhaps  the  ihappiniz  from  a"  \'  coordinate  to  a  dTsphuable  scan  line  could  be 
performed  more  eilFciently  bv  a  lookup  table.  But,  would  the  time  savinizs 
justify  the  additional  membry'required? 

(4)  The  feasibility  of  developing  and  implementing  a  subset  of  the  GKS  standard 
as  a  level  of  abstraction  above  the  primitives  provided  in  the  Ada  graphics 
library. 

(5)  The  feasibilitv  of  networking  two  or  more  HZ- 100  computers  to  provide 
interactive  operator  communfcation  on  one  svstem  while  providing  a  graphics 
display  on  another. 

(6)  The  feasibility  of  modifving  the  structure  of  the  Ada  graphics  librarv  so  that  it 
is  compatible' with  the  MS-DOS  operating  system  hosled  on  the  HZ- 100, 
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V.  CONCLUSION 

The  implementation  of  the  Ada  graphics  library  on  the  H  Z-100  computer  has 
proven  the  feasibility  of  developing  Ada  graphics  programs  on  a  microcomputer.  The 
H,  Z-100  is  certainly  suitable  for  educational  purposes  but  its  abihty  to  meet  real  time 
tactical  requirements  is  limited.  This  limitation  is  not  unique  to  the  H  Z-100.  but  is  a 
general  limitation  of  most  microcomputers  available  today.  We  can  expect  this 
limitation  to  ease  significantly  over  the  ne.\t  several  years  as  low  cost  multiprocessor 
systems  are  de\'eloped. 

The  Ada  graphics  library  was  implemented  as  low  level  primitives  necessary  to 
interface  with  and  control  the  H.  Z-100  hardware.  The  Hbrary  functions  were  not 
designed  in  accordance  with  any  recognized  standards.  However,  the  functions  were 
designed  with  graphics  standards  in  mind.  The  implementation  of  a  higher  level  GKS 
standard  graphics  library  would  be  able  to  use  most  of  the  present  Ada  graphics  libran.' 
primitives  to  interface  with  the  H, Z-100  hardware.  The  implementation  of  a  GKS 
standard  as  a  level  above  the  machine  dependent  Ada  graphics  library  would  assist  in 
making  any  developed  Ada  language  graphics  programs  transportable  to  other 
computers.  The  benefits  which  may  be  reaUzed  from  a  standard  interface  to  a  language 
are  obvious  with  the  high  costs  of  developing  software.  Although  the  architectural 
limitations  of  the  H  Z-100  are  not  compatible  with  a  full  implementation  of  the  GKS 
standard,  the  educational  benefits  that  could  be  realized  from  even  an  implementation 
of  a  subset  of  the  GKS  standard  warrants  futrther  investigation. 

The  limited  capabilities  of  the  H  Z-100  may  limit  its  suitability  for  many 
operational  tactical  applications,  however,  it  can  be  a  useful  system  for  program 
development.  With  the  support  of  the  Ada  graphics  library,  the  H  Z-1<>0  can  assist  hi 
performing  further  research  into  such  tactical  programming  applications  as  the  Na\y 
Tactical  Data  System  (NTDS).  The  ability  to  perform  research  in  this  area  could  be 
further  enhanced  by  the  development  of  a  GKS  standard  graphics  library  for  the 
H  Z-100  computer. 


APPENDIX  A 
USER'S  GUIDE 

1.  INTRODUCTION 

Twelve  graphics  procedures  are  available  to  the  user.  These  procedures  are 
included  in  ADAGRAPH.LIB  which  is  callable  from  the  Ada  programming  language. 
Appendices  B-E  provide  four  example  programs  demonstrating  the  linkage  and  calling 
procedures  necessary  to  use  the  Ada  graphics  library.  Procedures  available  to  the  user 
are: 

(1)  CLS 

(2)  COLOR( color_code:  in  INTEGER) 

(3)  INOUIRE_COLOR(x_coorci,  y_coord:  in  INTEGER; 

color_code:  out  INTEGER) 

(4)  SET_PIXEL(x_coord,  y_coord:  in  INTEGER) 

(5)  RSSET_PIXEL(x_coord,  y_coord:  in  INTEGER) 

(6)  DRAW_LINE( x_start,  y_start,  x_end,  y_end: 

in  INTEGER) 

(7)  DRAW_MLINE( x_start,  y_start,  x_end,  y_end: 

in  INTEGER) 

(8)  CIRCLE( x_center,  y_center,  radius:  in  INTEGER) 

(9)  BOUNDARY_FILL( x_coord,  y_coord,  fill_color, 

boundary_color:  in  INTEGER) 

(10)  AREA_FILL(x_coord,  y_coord,  fill_color:  in  INTEGER) 

(11)  SET_CURS(x_coord,  y_coord:  in  INTEGER) 

(12)  RESET_CURS(x_coord,  y_coord:  in  INTEGER) 

Following  the  description  of  each  function  is  an  example  of  the  Ada  language 
call  to  the  described  procedures.  It  should  be  noted  that  for  all  procedures  that  require 
an  (XA')  coordinate  that  the  allowable  range  of  X  is  0-639  and  the  allowable  range  of 
Y  IS  0-216. 

2.  CLEARING  THE  SCREEN 

Most  graphics  programs  will  require  clearing  the  display  screen  before  displaying 
graphics  data.    This  is  best  performed  by  calling  procedure  CLS.    This  procedure  takes 
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advantage  of  a  built-in  hardware  feature  which  allows  resetting  all  of  video  R-AM  in 
one  frame  period  (approximately  16.7  ms). 

—  Clear  the  screen 

CLS: 

3.        COLOR  SELECTION 

The  HZ- 100  has  the  capability  of  displaying  up  to  eight  different  colors.  Color 
selection  is  performed  by  calling  procedure  COLOR  and  passing  a  color  code 
parameter  identifying  the  desired  color.  Table  5  lists  the  colors  available  and  their 
respective  color  codes.  Black  is  not  listed  as  a  color  option  since  it  is  the  only  color 
which  is  displayed  by  resetting  a  pixel,  i.e..  writing  a  "0"  to  that  pixels  corresponding 
addresses  in  video  R,AM.  All  other  colors  are  displayed  by  writing  a  "I"  in  the 
appropriate  relative  address  of  the  color  planes  required  to  produce  the  desired  color. 
If  a  pixel  is  to  be  reset  to  black,  then  the  RESET_PIXEL  procedure  should  be  used. 

-Set  system  color  to  green 

C0L0R{5); 


TABLE  5 
COLOR  CODES 

COLOR  CODE  COLOR 

0  white 

1  cyan 

2  magenta 

3  blue 

4  yellow 

5  green 

6  red 


4.        COLOR  TESTING 

To  determine  the  color  to  which  any  particular  pixel  has  been  set.  use  procedure 
INQL'IRE_COLOR.  Input  parameters  to  this  procedure  are  the  (X.Y)  coordinate  oi" 
the  selected  pixel.  The  procedure  returns  the  color  code  (Table  5)  of  the  pixel  located 
at  that  coordinate. 

"Get  color  of  pixel  at  {X,\')  coordinate  (50.60) 
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INQUIRE_COLOR(59.  60.  color); 

5.  PIXEL  SETTING/RESETTING 

Procedures  SET_PIXEL  and  RESET_PIXEL  are  provided  for  controlling 
individual  pixels.  Procedure  SET_PIXEL  accepts  an  (X.Y)  coordinate  as  input 
parameters  and  sets  the  corresponding  pixel  to  the  current  system  color.  Procedure 
RESET_PIXEL  accepts  an  (X.Y)  coordinate  as  input  parameters  and  resets  the 
corresponding  pixel  to  black. 

--Set  pixel  at  location  (70,50)  to  current  system  color 

SET_PIXEL(70,  50): 

"Reset  pixel  at  location  (50.50)  to  black 

RESET_PIXEL(50.  50); 

6.  LINE  DRAWING 

Procedures  DR.'\W_LINE  and  DR.'\W_\ILINE  are  provided  for  drawing  Imes. 
Both  procedures  accept  as  input  parameters  the  (X.Y)  coordinates  of  the  end  points  of 
a  line.  A  line  of  the  current  system  color  is  then  drawn  connecting  those  end  points. 
If  procedure  DR.AW_LINE  is  used,  then  intersecting  lines  will  be  displayed  with  the 
last  line  drawn  on  top.  If  procedure  DR.AW_MLINE  is  used  for  drawing  lines  then 
the  color  at  the  point  of  intersection  of  intersecting  lines  is  the  combined  color  of  the 
individual  lines. 

"Draw  a  line  from  coordinate  (100,50)  to 

-coordinate  (200,75).   This  line  will  be 

-drawn  on  top  of  any  line  it  intersects. 

DR.\W_LINE(100.  50,  200.  75); 

"Draw  a  line  from  coordinate  (100,25)  to 

-coordinate  (10.15).    This  line  will  mix 

-colors  at  the  point  of  intersection  with 

-any  lines  that  it  intersects. 

DR.AW_MLINE(100,  25.  10,  15); 

7.  CIRCLE  DRAWING 

Procedure  circle  will  draw  a  circle  of  the  present  system  color.  Input  parameters 
to  this  procedure  include  an  (X.Y)  coordinate  identifying  the  circle's  center  position 
and  a  radius  length  measured  in  units  based  on  the  number  of  pixels  (640)  in  the  X  axis 
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of  the  video  display.  The  circle  drawing  algorithm  draws  a  circle  with  automatic 
corrections  made  based  on  the  x:y  linear  pixel  ratio  (2:1)  of  the  color  monitor,  i.e..  the 
circle  radius  is  twice  as  many  pixels  in  the  X  axis  as  it  is  in  the  Y  axis. 

--Draw  a  circle  of  radius  50  units  and 

-centered  at  coordinate  (300,  100). 

CIRCLE(300.  100.  50): 

8.        AREA/POLYGON  FILLING 

Procedures  BOUNDARY_FILL  and  AREA_FILL  are  available  to  perform 
filling  operations.  The  user  is  cautioned  that  tlie  filling  algorithm  has  an  upper  limit  on 
the  size  of  an  area  (approximately  seven  square  inches)  which  may  be  filled  by  a  single 
call  to  either  of  the  fill  procedures.  Larger  areas  may  be  filled  by  partitioning  the 
larger  area  and  filling  the  individual  partitions.  The  user  can  generally  avoid  problems 
by  limiting  all  fills  to  a  contiguous  area  of  not  more  than  3-4  square  inches. 

Procedure  B0UNDARY_F1LL  accepts  as  input  parameters  an  (X.Y)  coordinate 
identifying  the  starting  point,  a  fill  color  code,  and  a  boundary'  color  code  (Table  5). 
The  procedure  begins  filling  from  the  starting  (X.Y)  coordinate  and  sets  all  pixels 
within  the  defined  boundap.'  to  the  designated  fill  color.  The  boundarv'  must  be  a 
single  color  defined  by  the  boundary  color  code. 

Procedure  AREA_FILL  accepts  as  input  parameters  an  (X.Y)  coordinate 
identifying  the  starting  point  and  a  fill  color  code  (Table  5).  The  procedure  starts  at 
the  input  (X.Y)  coordinate  and  sets  all  pixels  in  a  contiguous  area  which  are  the  same 
color  as  the  pixel  at  the  (X,Y)  starting  coordinate  to  the  specified  fill  color.  This 
procedure  can  fill  an  area  which  is  bounded  by  difierent  colors  since  filling  is  based  on 
the  color  of  the  area  to  be  filled. 

"Beginning  at  coordinate  (50.75),  fill  an  area 

"With  blue  that  has  a  red  boundar>'. 

BOUNDARY_FILL(50.  75.  3.  6): 

"Fill  a  contiguous  area  with  green.    An  internal 

-point  in  that  area  is  coordinate  (lOO.lOO). 

AREA_FILL(loo.  100.  5): 
I.    CURSOR  CONTROL 

Procedures  SET_CURS  and  RESET_CURS  are  provided  for  cursor  control.  The 
graphics  cursor  controlled  by  these  procedures  is  a  "4-".    The  center  of  the  cursor  is 
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used  as  a  reference  point  for  cursor  placement.  All  management  of  cursor  display  is 
the  responsibility  of  the  user.  The  cursor  is  simply  a  special  graphics  symbol  which  the 
user  may  display  and  erase.  The  number  of  cursor  symbols  which  may  be  displayed  at 
any  point  m  time  is  determined  solely  by  the  user's  program. 

Procedure  SET_CURS  accepts  as  input  an  (X,V)  coordinate  and  displays  a 
cursor  symbol  of  the  present  color  at  that  coordinate.  Procedure  RESET_CURS 
accepts  as  input  an  (X.Y)  coordinate  and  resets  a  block  of  relative  memory  addresses 
centered  at  the  corresponding  (X.Y)  coordinate.  The  color  planes  alTected  are 
determined  by  the  present  system  color.  It  is  suggested  that  if  the  user  desires  to  use 
the  cursor  as  a  background  symbol  then  the  cursor  color  should  be  restricted  to  a 
single  color  plane  (red.  green,  or  blue)  that  is  dedicated  to  cursor  display.  If  this  is  not 
done  then  a  management  scheme  must  be  implemented  in  the  user  program  to 
maintain  the  integrity  of  non-cursor  graphics  data  when  setting,  resetting  the  cursor. 

--Display  a  green  cursor  at  coordinate  (150,100). 

C0L0R(5): 

SET_CURS(150.  100); 

"Erase  a  green  cursor  at  coordinate  (50,75). 
•     COLOR(5); 

RESET_CURS(50,  75); 
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APPENDIX  B 
GRAPHICS  TEST  1 


WITH  10,  UTIL,ADAGRAPH; 

PACKAGE  BODY  AGTESTl  IS 
USE  10,  UTIL,  ADAGRAPH; 

--THIS  PROGRAM  DRAWS  A  TEST  PATTERN  TO  TEST  COLOR  SELECTION, 
--CURSOR  SETTING,  CIRCLE  DRAWING,  LINE  DRAWING,  AREA  FILLING, 
--AND  BOUNDARY  FILLING 

x_pos,  y  DOS  :  integer; 
quit  :  cnaracter; 
beqin 

CLS  ; 

X_pOS  :=  320; 

y_pos  :=  108; 

color (5);    --GREEN 

set_curs(300,  135); 

color(3);    --BLUE 
--DRAW  A  CIRCLE 

circle(300,  102,  142); 

color(6) ;    --RED 
--  DRAW  A  RECTANGLE 

draw_line(153,  31,  442,  31); 

draw_line  442,  31,  442,  173); 

draw_line(442,  173,  153,  173); 

draw_line(158,  173,  158,  31); 
--DRAW  A  CIRCLE  AND  FILL  IT 

circle(300,  102,  40); 

area_.fill(300, 102,3)  ; 
--DRAW  AN  IRREGULAR  POLYGON  AND  FILL  IT 

draw_line (20, 20, SO, 22 

drav;_line  ( 80  ,  22  ,  84  ,  50 ' 

draw_line ( 84 , 50 , 17 , 43 ' 

draw_line (17,43,20,20' 

boundarv_till(50,35,6,6)  ; 
--DRAW  A  TRIANGLE  AND  FILL  IT 

draw_line ( 50 , 100 , 80 , 130 ) 

drav;_line  (  80  ,  130  ,  20  ,  130  ' 

draw_line(50,100,20,130' 

area_fill(50,120,5); 

color (2);    --MAGENTA 
--DRAW  A  RECTANGLE 

draw_line(10,  10,  590,  10); 

draw_line  590,  10,  590,  205 

draw_line  590,  205,  10,  205 

draw_line(lO,  205,  10,  10); 

color (5) ; 
--DRAW  A  RECTANGLE  WITH  DIAGONAL  LINES 

draw_line(200,  52,  400,  52) 

draw_line(400,  52,  400, 

draw_line(400,  152,  200 

drav;_line(200,  152 

drav7_line(200,  52, 

drav;  line  (200,  152 


152); 
152); 
200,  52' 
400,  152' 
400,  52' 


get(quit) 
end  AGTESTl ; 
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APPENDIX  C 
GRAPHICS  TEST  2 


WITH  10,  UTIL,ADAGRAPH; 
PACKAGE  BODY  AGTEST2  IS 
USE  10,  UTIL,  ADAGRAPH; 

--THIS  PROGRAM  EXERCISES  THE  LIME  DRAWING,  CIRCLE, 
--AMD  AREA  FILLING  PROCEDURES  TO  PRODUCE  A  PICTURE 
--WITH  COLORED  CURVES  AMD  A  COLOR  WHEEL 

i,  X,  y,  yl ,  y2 ,  pcol  :  integer; 

quit  :  character; 

begin 

CLS; 
y  :=  0; 

yl  :=  0: 

color(6) ; 
--LOOP  TO  DRAW  CURVE  1 
for  i  in  0.  .63  loop 

X  :=  i  *    10; 

y2  :=  189  -  yl; 

draw_mline(x,  y,  0,  y2); 

y  :=  y  +  2; 

yl  :=  yl  +  3; 
end  loop; 

y  :=  0; 
yl  :=  0: 
color(l) ; 
--LOOP  TO  DRAW  CURVE  2 
for  i  in  0 .  .63  loop 
X  :=  630  -  (i  ^   10) ; 
^2  :=  139  -  yl; 
iraw_mline(x,  y,  630,  y2); 
y  :=  y  +  2; 
yl  :=  yl  +  3; 
end  loop ; 
■-DRAW  A  COLOR  WHEEL 
color(O);   --WHITE 
circle(320,  150,  100); 


ti 


draw_line  < 

,320, 

100, 

32C 

),  200) 

draw_line( 

220, 

150, 

420,  150) 

draw_line( 

249, 

115, 

39] 

.,  185 

draw_line 

391, 

115, 

249,  185) 

area_fill 

355, 

115, 

°i 

--COLOR 

0 

=  WHITE 

area_fill 

,391, 

140, 

--COLOR 

1 

=  CYAM 

area_fill 

.391, 

170, 

2 

--COLOR 

2 

=  MAGENTA 

area_fill 

330, 

185, 

3 

--COLOR 

3 

=  BLUE 

area_f ill 

310, 

185, 

4 

--COLOR 

4 

=  YELLOW 

area_fill 

249, 

160, 

5 

--COLOR 

5 

=  GREEN 

area_f ill 

[249, 

130, 

6) 

--COLOR 

6 

=  RED 

get (quit) 
encf  AGTEST2 ; 
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APPENDIX  D 
GRAPHICS  TEST  3 


WITH  10,  UTIL,ADAGRAPH; 
PACKAGE  BODY  AGTEST3  IS 
USE  10,  UTIL,  ADAGRAPH; 

--THIS  PROGRAM  IS  USED  TO  TEST  SETTING  AND  RESETTING 
--OF  A  GRAPHICS  CURSOR.   THE  PROGRAM  REOUESTS  CURSOR 
--POSITION  INPUTS,  ERASES  THE  PREVIOUS  CURSOR,  AND 
--DRAWS  A  CURSOR  AT  THE  INPUT  (X,Y)  COORDINATE 


1    :    mte 

ger 

; 

x_pos,    y, 

begin 
CLS; 
x_old 
v_old 

_pos , 

:=    0 
:=    0 

tor   i 

in 

1 

x_old,  y_old  :  integer; 


--INITIALIZE  X  &  y 

.50  loop 
put("ENTER  X  POSITION  "); 
get(x_pos)  ; 

put  "ENTER  Y  POSITION  "); 
get(y  DOS) ; 
colorTS);   --GREEN 
reset_curs(x_old,  y_old) ; 
set  curs(x_pos,  y_pos); 

X_oTd  :=  X_pOS ; 

y_old  :=  y_pos  -  13; 
end  loop; 
end  AGTEST3; 
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APPENDIX  E 
GRAPHICS  TEST  4 


WITH  10,  UTIL,ADAGRAPH; 

PACKAGE  BODY  AGTEST4  IS 

USE  10,  UTIL,  ADAGRAPH; 

--THIS  PROGRAM  IS  USED  TO  DISPLAY  A  CIRCLE  OF  THE  APPROXIMATE 

--MAXIMUM  AREA  THAT  CAN  BE  FILLED  BY  A  SINGLE  CALL  TO  ONE  OF 

--THE  FILL  ROUTINES.    IT  THEN  DEMONSTRATES  FILLING  AND 

--DRAWING  OF  POLYGONS  USING  ONLY  THE  SET_PIXEL  AND  RESET_PIXEL 

--PROCEDURES. 

X,  y  :  INTEGER; 

quit  :  character; 
begin 

CLS; 
--SELECT  COLOR 

color(O);    --WHITE 
--DRAW  A  CIRCLE 

circle(300,  102,  115); 
--FILL  THE  CIRCLE  WITH  RED 

boundarv_fill(300,  102,  6,  0); 
color (1);   --CYAN 

--DRAW  A  RECTANGLE  USING  SET  PIXEL 
for  X  in  250.. 350  loop 

set_pixel(x,  11) ; 

set_pixel(x,  127); 
end  loop ; 
for  y  in  11 .  .121   loop 

set_pixel(250 ,  yj 

set_pixel(350 ,  y, 
end  loop; 

--FILL  THE  RECTANGLE 

area_fill(300,  102,  5);   --COLOR  5  =  GREEN 
--ERASE  A  RECTANGLE  USING  RESET  PIXEL 
for  X  in  280. .320  loop 

for  y  in  92. .112  loop 
re"set_pixel(x,  y)  ; 

end  loop; 
end  loop; 

area_fill(375,  102,  2); 
color (6) ; 

qet(quit) ; 
end  AGTEST4; 
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APPENDIX  F 
SPECIFICATION  PACKAGE 


PACKAGE  ADAGRAPH  IS 

--RETURN  ADDRESS  VARIABLES 

RET_AD J_SL , RET_RVA , RET_LS , RET_IC , RET_XM :  INTEGER ; 

RET_FILL , RET_AFILL , RET_OL , RET_SPE , RET_CPE : INTEGER ; 

RET_DML , RET_RPE : INTEGER ; 
--CURSOR  ADDRESS  VARIABLES 

CURS_0 , CURS_1 , CURS_2 , CURS_3 , CURS_4 :  INTEGER ; 

X  LOC:  INTEGER; 
--X/Y  POSITION  AND  GENERAL  PURPOSE  VARIABLES 

X_START , Y_START , X_END , Y_END :  INTEGER ; 

X_POS , Y_POS , DELTA_X , DELTA_Y , INC_CTR :  INTEGER ; 

L_ERROR , END_CNT :  INTEGER ; 

X_CTR , Y_CTR , RADIUS , X_REL , Y_REL , P_VAL : INTEGER ; 
--COLOR  VARIABLES 

P_COLOR , F_COLOR , B_COLOR : INTEGER ; 
--SYSTEM  STATUS 

SYS_STAT:  INTEGER; 
--SEGMENT  E  STATUS 

SEGMENT_E , SEGMENT_FE , SEGMENT_IE :  INTEGER ; 
--COLOR  PLANE  BASE  ADDRESS 

COL_PL_ADDR:  INTEGER; 

SAV_C0L1_STAT , SAV_C0L2_STAT , SAV_C0L3_STAT :  INTEGER ; 

COL_PLl,COL_PL2,COL_PL3:  INTEGER; 
--FILL  ROUTINE  CONTOL  VARIABLE 

COL_MIX:  INTEGER; 
--GRAPHICS  LIBRARY  PROCEDURES 

PROCEDURE  CLS; 

PROCEDURE  COLOR(color_code  :  in  INTEGER); 

PROCEDURE  SET_CURS(x  DOS,  y_pos  :  in  INTEGER); 

PROCEDURE  R£SET_CURSrx_pos,    y_pos    :    in   INTEGER); 

PROCEDURE  DRAW_LINE(x_start,  y_start,  x_end,  y_end  :  in  INTEGER); 

PROCEDURE  DRAW_MLINE(x_start,  y_start,  x  end,  y_end  :  in  INTEGER); 

PROCEDURE  CIRCLE(x_ctr,  y_ctr,  radius  :  In  INTEGER); 

PROCEDURE  INQUIRE_COLOR(x_pos,  y_pos  :  in  INTEGER; 

color  :  out  INTEGER) ; 

PROCEDURE  BOUNDARY_FILL(x_pos,  v_D0s ,  f  color,  b_color  : 

m' INTEGER"; 

PROCEDURE  AREA_FILL(x_pos,  y_pos ,  f  color  :  in  INTEGER); 

PROCEDURE  SET_PIXEL(x  DOS,  y_pos  :  in  INTEGER); 

PROCEDURE  RESET_PIXELrx_pos,  y_pos  :  in  INTEGER); 
END  ADAGRAPH; 
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APPENDIX  G 
ASSEMBLY  CODE  LISTING 


■SAVE  VIDEO  STATUS 


: BLANK  THE  SCREEN 


■SET  BIT  3=0 


PACKAGE  ASSEMBLY  ADAGRAPH 
JHP       MAIN 

PROCEDURE  CLS  IS  USED  TO  PERFORM  A  CLEAR  SCREEN  OPERATION 
PROC  CLS; 

PUSH 

IN 

PUSH 

MOV 

OUT 

IN 

AND 

OUT 

IN 

AND 

OUT 

MOV 

NOP 

LOOP 

IN 

OR 

OUT 

POP 

OUT 

POP 

RET 
END  PROC  CLS; 

PROCEDURE  COLOR  IS  USED  TO  ENABLE  COLOR  PLANES  TO  PROVIDE  THE  SELECTED 
COLOR  AND  THE  E  SEGMENT  REGISTER  IS  INITIALIZED  TO  ALLOW  WRITING  TO 
THE  ENABLED  COLOR  PLANES. 


DELAY 


AX 

AL,  0D8H 
AX 

AL,OFH 
0D8H,  AL 
AL,  ODBH 
AL,  0F7H 
ODBH,  AL 
AL,  0D9H 
AL,  0F7H 
0D9H,  AL 
CX,  6530 

DELAY 
AL,  0D9H 
AL,  08H 
0D9H,  AL 
AX 

0D8H,  AL 
AX 


ENABLE  CLRSCRN  SIGNAL 

INIT  COUNTER  FOR  TIME  DELAY 

TIME  DELAY  TO  ALLOW  VIDEO  PROCESSOR 

TIME  TO  CLEAR  VIDEO  MEMORY 


; DISABLE  CLRSCRN  SIGNAL 
;  RESTORE  SYSTEM  STATUS 


PROC  COLOR; 


COLORl : 


C0L0R2 


COLORS 


POP 

POP 

PUSH 

AND 

JNZ 

MOV 

MOV 

MOV 

JMP 

SUB 

JNZ 

MOV 

MOV 

MOV 

JMP 

SUB 

JNZ 

MOV 

MOV 

MOV 

JMP 

SUB 

JNZ 

MOV 

MOV 

MOV 

JMP 


DX 

AX 

DX 

AX,  7 

COLORl 
C0L_PL1 
C0L_PL2 
C0L_PL3 

EXIT_COL 

AL,  1 

C0L0R2 
C0L_PL1 
C0L_PL2 
C0L_PL3 

EaIT_COL 

AL,  1 

C0L0R3 
C0L_PL1 
C0L_PL2 
C0L_PL3 

EXIT_C0L 

AL,  1 

C0L0R4 
C0L_PL1 
C0L_PL2 
C0L_PL3 

EXIT  COL 


SAVE  RETURN  ADDRESS 

GET  COLOR  CODE 

RESTORE  RETURN  ADDRESS 

MASK  COLOR  CODE  TO  SET  STATUS 


FLAGS 


OCOOOH 
ODOOOH 
OEOOOH 


OCOOOH 
OEOOOH 
OEOOOH 


OCOOOH 
ODOOOH 
ODOOOH 


OCOOOH 
OCOOOH 
OCOOOH 


; COLOR  IS  WHITE 


■COLOR  IS  CYAN 


■COLOR  IS  MAGENTA 


■COLOR  IS  BLUE 
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C0L0R4 : 

SUB 

JMZ 

MOV 

MOV 

MOV 

JMP 

COLORS: 

SUB 

JNZ 

MOV 

MOV 

MOV 

JMP 

C0L0R6: 

SUB 

JMZ 

MOV 

MOV 

MOV 

JMP 

EXIT.COL 

MOV 

OUT 

RET 

END  PROC 

COLOR; 

AL,  1 
COLORS 

C0L_PL1 
C0L_?L2 
C0L_PL3 

EXIT_C0L 

AL,  1 

COLORS 
C0L_PL1 
C0L_PL2 
C0L_PL3 

EXIT_COL 

AL,  1 

EXIT_COL 

"C0L_PL1 
C0L_PL2 
C0L_PL3 

EXIT_COL 

AL,  78H 

0D8H,  AL 


ODOOOH 

OEOOOH 
GEOOOH 


OEOOOH 

OEOOOH 
OEOOOH 


ODOOOH 
ODOOOH 
ODOOOH 


'COLOR  IS  YELLOW 


: COLOR  IS  GREEN 


■COLOR  IS  RED 


■DISABLE    SIMULTANEOUS   WRITE 


7^  7< -k -k  7^  7^  7^ 

Trk-k-kk-k-k 


7^7^r;7K7^T:7r 


X7<:7<:7r7>r^7:7r 


PROCEDURE  RESET_CURS 
AN  (X,Y)  POSITION  IS 
ADDRESSES  IS  CLEARED 
PROC  RESET_CURS; 
MOV 
POP 
POP 
/       POP 
PUSH 
PUSH 
PUSH 
CALL 
CALL 
POP 
CALL 
SUB 
CALL 
SUB 
PUSH 
PUSH 
CALL 
CALL 
POP 
CALL 
SUB 
PUSH 
PUSH 
CALL 
CALL 
POP 
CALL 
ADD 
PUSH 
PUSH 
CALL 
CALL 
POP 
CALL 
ADD 
PUSH 
PUSH 
CALL 
CALL 
POP 
CALL 


IS  USED  TO  ERASE  THE  GRAPHICS  CURSOR 
INPUT  TO  THE  PROCEDURE  AND  THE  A  BLOCK  OF 
AT  THE  CURSOR  LOCATION 


[SEGMENT_E' 
AX 

Y_POS' 

X_POS' 
AX 

X_POS' 

Y_POS" 
ADJ_SL' 
REL_VID_ADDR 
BX 

BLANK_GCURS 
BX,  1 
BLANK_GCURS 

Y_POS' 

X_POS' 

Y_POS' 
ADJ_SL' 
REL_VID_ADDR 
BX 
BLANK_GCURS 

Y_POS" 

X_POS' 

Y_POS' 
ADJ_SL' 
REL_VID_ADDR 
BX 

BLANK_GCURS 
'Y_POS' 

X_POS" 

Y_POS' 
ADJ_SL" 
REL_VID_ADDR 
BX 

BLANK_GCURS 
'Y_POS" 

X_POS' 

Y_POS' 
ADJ_SL' 
REL_VID_ADDR 
EX 
BLANK  GCURS 


ES    ;SAVE  SEG  E  STATUS 
SAVE  RETURN  ADDRESS 
GET  Y  POSITION 
GET  X  POSITION 
RESTORE  RETURN  ADDRESS 


;ADJUST  Y  POSITION  TO  A  DISPLAYABLE 
;SCAN  LINE  &  GET  VIDEO  ADDRESS 


44 


MOV 

RET 


ES,  [SEGMENT_E]   ; RESTORE  SEG  E 


END  PROC  RESET^CURSj 

X  A  x />:  x  7T  X  7r  X  7^  X  X  X  A /^  7T  X  x  7<; /T  TT  :;*:  X  :^  TT  X  X  7^ 
7*:7*:xxx:'cxx:'^'^5rx^xxX/rAxxxx:*cxxxxxx':^x:'rx 

IS  USED  BY  PROCEDURE  RESET  CURS  TO  ERASE  A  CURSOR 


[C0L_PL1] 
AX 


AX, 

ES, 

ES 

[BX]   0 

AX,  [C0L_PL2] 

ES,  AX 

ES 

[BX]   0 

AX,  [C0L_PL3] 

ES,  AX 

ES 

[BX],  0 


PROCEDURE  BL?iMK_GCURS 
PROC  BLANK_GCURS ; 

MOV 

MOV 

SEG 

MOV 

MOV 

MOV 

SEG 

MOV 

MOV 

MOV 

SEG 

MOV 

RET 
END  PROC  BLANK_GCURS ; 

x:*rxxxxx*xx5<rxxx7cxxAXA5*:xxxxxx7>;x*/V/^ 

PROCEDURE  SET_CURS  IS  USED  TO  DISPLAY  A  CURSOR  AT  THE  INPUT 
(X,Y)  POSITION.   THE  GRAPHICS  CURSOR  DISPLAYED  IS  A  "+" . 
PROC  SET  CURS • 
; CALCULATE  MEMORY  ADDRESS  OF  MEW  CURSOR  POSITION 

■   ES    ;SAVE  SEG  E  STATUS 
SAVE  RETURN  ADDRESS 
;GET  Y  POSITION  FROM  STACK 
:GET  X  POSITION  FROM  STACK 
: REPLACE  RETURN  ADDRESS 


;GET  CORRECTED  Y  LINE  NUMBER 


MOV 

'SEGMENl 

^_E], 

POP        AX 

POP 

'Y  PCS' 

POP 

'X  PCS' 

PUSH           ; 

ix 

MOV             r 

)X,  .[Y  POS] 

PUSH 

'Y  POSj 

CALL      I 

IDJ  SL 

POP        I 

3X 

•THE 

CURSOR  IS  MADE  UP 

OF  FIVE  COM] 

MOV 

"CURS  0' 

,  DX 

MOV 

"CURS  1' 

,  DX 

MOV 

"CURS  2' 

,  BX 

MOV 

'CURS  3' 

,  DX 

MOV 

'CURS  4' 

,  DX 

SUB 

"CURS  0' 

,  2 

MOV       } 

ix,  [CURS  0] 

JNS       ( 

:o 

MOV       i 

\X,    3 

ADD 

'CURS  0' 

,  AX 

CO: 

PUSH 

'CURS  0' 

CALL      i 

\DJ  SL 

POP 

■CURS  0' 

SUB 

'CURS  1' 

,  1 

MOV        i 

^X,  [CURS  1] 

JNS        ( 

:i 

ADD 

'CURS  1" 

,  2 

CI: 

PUSH 

'CURS  1", 

CALL          ; 

\DJ  SL 

POP 

CURS  1' 

ADD 

'CURS  3" 

,  1 

PUSH 

'CURS  3" 

CALL       1 

^DJ  SL 

POP 

CURS  3" 

ADD 

'CURS  4' 

,  2 

PUSH 

'CURS  4" 

CALL      i 

\DJ  SL 

POP 

CURS  4] 

PUSH 

;x_pos] 

PUSH      i 

5  a 

CALL       ! 

^EL  VID 

ADDR 

:PUT  THE  LINE  NUMBER  INTO 
;EACH  OF  THE  CURSOR  ROWS 


ADJUST  EACH  CURSOR  ROW  TO  REFLECT  IT 
DISTANCE  FROM  CURSOR  CENTER  POSITION 
WHICH  IS  CURS_2 

THEN  CALL  PROCEDURE  ADJ_SL  TO  ASSURE 
THAT  EACH  CURSOR  ROW  IS  LOCATED  ON 
A  DISFLAYABLE  SCAN  LINE 
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POP 

PUSH 

PUSH 

CALL 

POP 

PUSH 

PUSH 

CALL 

POP 

PUSH 

PUSH 

CALL 

POP 

PUSH 

PUSH 

CALL 

POP 

PUSH 

PUSH 

CALL 

POP 

I10V 

AND 

DRAW  THE  CURSOR 
THIS  SPLITS  THE 
JNZ 
MOV 
HOV 
SUB 
CALL 
MOV 
ADD. 
CALL 
MOV 
MOV 
CALL 
MOV 
CALL 
MOV 
CALL 
MOV 
CALL 
JMP 

BITl:        SUB 
JMZ 
MOV 
SUB 
MOV 
CALL 
HOV 
ADD 
CALL 
MOV 
MOV 
CALL 
MOV 
CALL 
MOV 
CALL 
MOV 
CALL 
JMP 

BIT2:  SUB 
JNZ 
MOV 
MOV 
CALL 
MOV 


BX 

X_POS] 

CURS_0] 
REL_VID  ADDR 

CURS_OT 

X_POS] 

CURS_1] 
REL_VID  ADDR 
"CURS_lT 
'X.POSl 
■CURS_2] 
REL_VID  ADDR 

CURS_2T 

X_FOSl 
■CURS_3] 
REL_VID  ADDR 
■CURS_3j 

■x_pos] 

■CURS_4] 
REL_VID  ADDR 

[CURS_4T 
AX,  [X_POS] 
AX,  07H 


;GET  X  POSITION  FOR  TEST 
; CALCULATE  CURSOR  BIT  POSITION  IN  ADDR 


BASED  ON  CURSOR  CENTER  BIT  POSITION  WITHIN  A  BYTE 
CURSOR  ACROSS  BYTE  BOUNDARIES  FOR  FULL  SCREEN  COVERAGE 


BITl 

AL,  3 

BX,  [CURS_2] 

BX,  I 

DISP_GCURS 

AL,  OEOH 

BX,  1 

DISP_GCURS 

AL,  80H 

BX,  [CURS_0] 

DISP  GCURS 

BX,  TCURS_1] 

DISP  GCURS 

BX,  TCURS_3] 

DISP  GCURS 

BX,  TCURS_4] 

DISP_GCURS 

EXIT 

AL,  1 

BIT2 

BX,  [CURS_2] 

BX,  1 

AL,  1 

DISP_GCURS 

AL,  OFOH 

BX,  1 

DISP_GCURS 

AL,  40H 

BX,  [CURS_0] 

DISP  GCURS 

BX,  TCURS_1] 

DISP  GCURS 

BX,  TCURS_3] 

DISP  GCURS 

BX,  TCURS_4] 

DISP_GCURS 

EXIT 

AL,  1 

BIT3 

AL,  0F8H 

BX,  [CURS_2] 

DISP_GCURS 

AL,  20H 


;TEST  FOR  CURSOR  IN  X  PIXEL  POS .  0 


; DECREMENT  BIT  COUNT  FOR  NEXT  TEST 
;TEST  FOR  CURSOR  IN  X  PIXEL  POS.  1 


; DECREMENT  BIT  COUNT  FOR  NEXT  TEST 
:TEST  FOR  CURSOR  IN  X  PIXEL  POS.  2 
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BIT3 


BIT4: 


BITS 


BIT6: 


MOV 

BX,  [CURS  0] 

CALL 

DISP  GCURS 

MOV 

BX,  ICURS  1] 

CALL 

DISP  GCURS 

MOV 

BX,  ICURS  3] 

CALL 

DISP  GCURS 

MOV 

BX,  fCURS  4] 

CALL 

DISP  GCURS 

JMP 

EXIT 

SUB 

AL,  1 

JNZ 

BIT4 

MOV 

AL,  7CH 

MOV 

BX,  [CURS  2] 

CALL 

DISP  GCURS 

MOV 

AL,  lOH 

MOV 

BX,  [CURS  0] 

CALL 

DISP  GCURS 

MOV 

BX,  TCURS  1] 

CALL 

DISP  GCURS 

MOV 

BX,  TCURS  3] 

CALL 

DISP  GCURS 

MOV 

BX,  TCURS  4] 

CALL 

DISP  GCURS 

JM? 

EXIT 

SUB 

AL,  1 

JNZ 

BITS 

MOV 

AL,  3EH 

MOV 

BX,  [CURS  2] 

CALL 

DISP  GCURS 

MOV 

AL,  8 

MOV 

BX,  [CURS  0] 

CALL 

DISP  GCURS 

MOV 

BX,  TCURS  1] 

CALL 

DISP  GCURS 

MOV 

BX,  "[CURS  3] 

CALL 

DISP  GCURS 

MOV 

BX,  TCURS  4] 

CALL 

DISP  GCURS 

JMP 

EXIT 

SUB 

AL,  1 

JNZ 

BIT6 

MOV 

AL,  IFH 

MOV 

BX,  [CURS  2] 

CALL 

DISP  GCURS 

MOV 

AL,  4 

MOV  . 

BX,  [CURS  0] 

CALL 

DISP  GCURS 

MOV 

BX,  TcURS  1] 

CALL 

DISP  GCURS 

MOV 

BX,  TCURS  3] 

CALL 

DISP  GCURS 

MOV 

BX,  TCURS  4] 

CALL 

DISP  GCURS 

JMP 

EXIT 

SUB 

AL,  1 

JNZ 

BIT7 

MOV 

AL,  OFH 

MOV 

BX,  [CURS  2] 

CALL 

DISP  GCURS 

MOV 

AL,  80H 

ADD 

BX,  1 

CALL 

DISP  GCURS 

MOV 

AL,  2 

MOV 

BX,  [CURS  0] 

CALL 

DISP  GCURS 

MOV 

BX,  TCURS  1] 

CALL 

DISP  GCURS 

MOV 

BX,  TCURS  3] 

CALL 

DISP  GCURS 

/DECREMENT  BIT  COUNT  FOR  NEXT  TEST 
;TEST  FOR  CURSOR  IN  X  PIXEL  POS .  3 


; DECREMENT  BIT  COUNT  FOR  NEXT  TEST 
;TEST  FOR  CURSOR  IN  X  PIXEL  POS.  4 


; DECREMENT  BIT  COUNT  FOR  NEXT  TEST 
;TEST  FOR  CURSOR  IN  X  PIXEL  POS.  S 


; DECREMENT  BIT  COUNT  FOR  NEXT  TEST 
;TEST  FOR  CURSOR  IN  X  PIXEL  POS.  6 
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BIT7 


EXIT 


MOV 

CALL 

JMP 

MOV 

MOV 

CALL 

MOV 

ADD 

CALL 

MOV 

MOV 

CALL 

MOV 

CALL 

MOV 

CALL 

MOV 

CALL 

MOV 

RET 


BX, 

[CURS  4] 

DISF 

GCURS 

EXII 

AL, 

7 

BX, 

[CURS    2] 

DISF 

'  GCURS 

AL, 

OCOH 

BX, 

1 

DISE 

'   GCURS 

AL, 

1 

BX, 

[CURS  0] 

DISF 

>  GCURS 

BX, 

TCURS  1] 

Disr 

'  GCURS 

BX, 

TCURS  3] 

Disr 

'  GCURS 

BX, 

TCURS  4] 

Disr 

>  GCURS 

ES, 

TSEGMENT  E] 

■RESTORE   SEG   E 


END   PROC   SET_CURS; 


PROCEDURE  DISP_GCURS 
PROC  DISP_GCURS; 

MOV 

MOV 

SEG 

OR 

MOV 

MOV 

SEG 

OR 

MOV 

MOV 

SEG 

OR 

RET 
END   PROC,DISP_GCURS,- 

PROCEDURE  ADJ_SL  IS 
THAT  IT  OCCURS  ON  A 
PROC  ADJ_SL; 

POP 


IS   USED   BY   PROCEDURE    SET_CURS   TO   DISPLAY   A   CURSOR 

DX,     [C0L_PL1] 

ES,  DX 

ES 

[BX] ,    AL 

DX,     [C0L_PL2] 

ES,    DX 

ES 

[BX] ,    AL 

DX,     [C0L_PL3] 

ES,    DX 

ES 

[BX] ,    AL 


USED  TO  CORRECT  Y  POSITION  TO  INSURE 
DISPLAYABLE  SCAN  LINE 


TST  Y 


AD J_Y : 
EXIT  SL 


[RET_ADJ_SL] 

BX 

ciA  ,      B  A 

AX,    9 

ADJ_Y 

EXIT_SL 

BX,    7 

TST_Y 

BX 

[RET_ADJ_SL] 


;SAVE  RETURN  ADDRESS 
;GET  Y  POSITION 


; RETURN  CORRECTED  Y  POSITION 
; RESTORE  RETURN  ADDRESS 


POP 
MOV 
SUB 
JNS 
JMP 
ADD 
JMP 
PUSH 
PUSH 
RET 
END  PROC  ADJ_SL,- 

AXXxxxx/>cxxxxAxxxxxx:*cx><;xxxxx;*:X/r 

PROCEDURE  REL_VID_ADDR  ACCEPTS  X  AND  Y  SCREEN  COORDINATES  AND  CONVERTS 
THEM  TO  A  BYTE  ADDRESS  IN  MEMORY  CORRESPONDING  TO  THE  X  Y  POSITION 
PROC  REL_VID_ADDR; 

POP 

POP 

TEST 

JNS 

MOV 

MOV 

SUB 

JNS 


TST  YUPR 


[RET_RVA] 
BX 

BX,  8000H 
TST_YUPR 
BX,  0 
AX,  37  6 
AX,  BX 
Y  IN  BND 


;SAVE  RETURN  ADDRESS 
;GET  Y  POSITION 
;TEST  FOR  Y  <  0 


;TEST  FOR  Y  >  376 
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MOV 

EX,  376 

Y  IN  BND: 

MOV 

AX,  80H 

MUL 

Ba 

POP 

BX 

TEST 

BX,  8000H 

JNS 

TST  XUPR 

MOV 

BX,  0 

TST  XUPR: 

MOV 

DX,  639 

SUB 

DX,  BX 

JNS 

X  IN  BND 

MOV 

BX,  639 

X  IN  BND: 

MOV 

CL,  3 

SHR 

BX,  CL 

ADD 

BX,  AX 

PUSH 

BX 

PUSH 

[RET_RVA] 

RET 

END  PROC 

REL  VID  ADDR 

'  ^^ ^  • 

PUT  SCALE  FACTOR  IN  AX 

AND  SCALE  Y  BASED  ON  LINE  NUMBER 

GET  X  POSITION 

TEST  FOR  X  <  0 


:TEST  FOR  X  >  639 


AND  DETERMINE  BYTE  X  OFFSET 
BY  DIVIDING  X  POSITION  BY  8 
ADD  X  OFFSET  TO  GET  BYTE  ADDRESS 
RETURN  RELATIVE  BYTE  ADDRESS 
RESTORE  RETURN  ADDRESS 


*:T:^xxxxxxxxx^x'^7tx'X7:7C7r:'cxxxx?:xxxx'^^ 


•LINE  DRAWING  PROCEDURE  V?ITH  COLOR  MIXING  FOR  CROSSING  LINES 
PROC  DRAV?_MLINE  ; 


POP 
MOV 
CALL 
PUSH 

RET 


RET_DML 

COL_HIX' 

DRAWW_LINE 

[RET_DML] 


SAVE  RETURN  ADDRESS 
ENABLE  COLOR  MIXING 
GO  DRAW  THE  LINE 
RESTORE  RETURN  ADDRESS 


END   PROC   DRAV/_MLINE? 

ir7^i^■k7r■k■k■^7^;■ky^iryr■k■k■k7^7^;7^;•k7^7r7r■k■ky^:k^k:k•k■k:k■ki^■ki^;7^7^y^ 

LINE  DRAWING  PROCEDURE  WITHOUT  COLOR  MIXING  FOR  CROSSING  LINES 
PROC  DRAW_LINE; 

POP 

MOV 

CALL 

PUSH 

RET 
END  PROC  DRAW_LINE : 

i^;ir■ki^7^■kir•k■k■k■k■k7^;i^7^■k■k■k^k•k■k■k■k■k■k7<y^;•k■k•k■k■k•k•k■ki^;•kiri^ 


RET_DML' 
COL_MIX' 
DRAWW_LINE 
[RET_DML; 


SAVE  RETURN  ADDRESS 
DISABLE  COLOR  MIXING 
GO  DRAW  THE  LINE 
RESTORE  RETURN  ADDRESS 


PROCEDURE  DRAWW_LINE  PROVIDES  PRIMITIVE  LINE  DRAWING  CAPABILITIES 
THE  SUBROUTINE  ACCEPTS  AS  INPUT  A  PAIR  OF  ENDPOINTS  IDENTIFIED  BY 
(X,  Y)  COORDINATES 


PROC  DRAWW_LINE; 
MOV 
PUSH 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 


SP 


BX 

BX 


BP, 

DS 

BX,  [BP+8] 

[X_START] , 

BX,  [BP+6] 

[Y_START], 

BX,  [BP+4] 

[X_END] ,  BX 

AX,  [BP+2] 

[Y_END] ,  AX 

;TEST  ORDERING  OF  Y  COORDINATES.   THE  ALGORITHM  EXPECTS  TO  FIND  THE  Y 
;COORDINATE  IN  INCREASING  ORDER  OR  0. 


7 GET  X  START  FROM  STACK 
;GET  Y  START  FROM  STACK 
;GET  X  END  FROM  STACK 
;GET  Y  END  FROM  STACK 


STO  DY: 


MOV 
SUB 
JNS 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
SUB 
MOV 


AX, 

Y  END] 

AX, 

Y  START] 

STO  DY 

AX, 

X  START] 

BX, 

'X  END] 

X  START] ,  BX 

X  END] ,  AX 

AX, 

Y  START] 

BX, 

■y_end] 

Y  START] ,  BX 

Y  END] ,  AX 

AX,  BX 

[DEL^ 

rA_Y] ,  AX 

JUMP  IF  Y  ORDERING  OK 
ELSE  SWAP  START  AND  END  COORD. 
SO  Y  START  VALUE  IS  LTE  Y  END 
VALUE.   THEN  CALCULATE  DELTA  Y, 
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TST_DY: 
CASE  1; 


C  2  OR  3 


CASE  2: 


C  CASE2: 


DR  C2 


DR  C2C 


CASE  2C 


CASE  3 


MOV 

SUB 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

PUSH 

PUSH 

CALL 

TEST 

JNS 

JMP 

TEST 

JMZ 

SUB 

ADD 

PUSH 

PUSH 

CALL 

SUB 

JNS 

JI-IP 

MOV 

SUB 

JNS 

JMP 

MOV 

MOV 

MOV 
ADD 
JNZ 
JMP 
MOV 
MOV 
DIV 
SUB 

MOV 

SUB 

JNS 

JMP 

TEST 

JNS 

ADD 

PUSH 

PUSH 

CALL 

MOV 

ADD 

MOV 

ADD 

JMP 

ADD 

ADD 

PUSH 

PUSH 

CALL 

MOV 

ADD 

SUB 

MOV 

ADD 

JMP 

MOV 

MOV 


AX,  [X_END]       ; CALCULATE  DELTA  X 
AX,  [X_START] 
^DELTA_X] ,  AX 

INC_CTR' ,  1 

L_ERROR] ,  0 
AX,  [X  START] 
[X_POST,  AX 
AX,  [Y  START] 
^Y_POST,  AX 

X_POS 

Y_POS 
LINE_SEG 
[DELTA_X] ,  8000H 
TST_DY 
TST_DYZ 

[DELTAJZ],  7FFFH  ;TEST  FOR  DELTA  Y  =  0 
C_2_OR_3 
"DELTA_X1 ,  1 

X_POS 

X_POS 

Y_POS 
LINE_SEG 
[DELTA_X] ,  1 
CASE_2 
EXIT  DL 

AX,  Tdelta_x 

AX,  [DELTA_Y 

CASE_2 

CASE  3 

AX,  IDELTA.X] 

[END_CNT],  AX 


;PLOT  FIRST  POINT 

;TEST  FOR  NEGATIVE  SLOPE 


;DRAW  LINE  FOR  SPECIAL  CASE  WHERE 
;DX  >  0  AND  DY  =  0 


•DX  >  0  AND  DY  >  0 


:DX  >=  DY 


BX,  [DELTA_Y] 

BX,  1 

C_CASE2 

DR_C2 

AX,  [DELTA_X] 

DX,  0 

BX 

[L_ERROR] ,  AX 


AX, 
AX, 
DR_C^C 

EXIT_DL 

[L_ERROR 

CASE_2C 

X„POS" 

X_POS 

Y_POS 
LINE  SEG 


END_CNT 
INC  CTR 


ADD  IN  CORRECTION  FACTOR  FOR 

SMOOTHING 

CORR  =  DX/(DY+1) 


;INIT  ERROR  VAL.  WITH  CORR.  FACT. 
;TEST  INCREMENT  COUNTER 


8000H  ;TEST  IF  ERROR  <  0 
; ERROR  <  0 


AX, 

AX, 


L_ERROR 
DELTA  Y 


L    ERROR' 

,    AJ 

i 

'INC    CTR' 

,    1 

DR   C2 

'X   PCS' 

,    1 

;  ERROR    > 

'Y   POS' 

,    1 

'X   POS' 

'Y   POS' 

LINE    SEG 

AX, 

L    ERROR' 

AX, 

'DELTA   Y' 

AX, 

'DELTA   X' 

"L   ERROR' 

,    rti 

{ 

'INC    CTR' 

,    1 

DR   C2 

AX,     [DELTA  Y' 

;DY    >    DX 

[END 

_c> 

IT] 

,    A} 

{ 
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MOV 

ADD 

JMZ 

JMP 

C_CASE3 : 

MOV 

MOV 

DIV 

MOV 

DR_C3 : 

MOV 

SUB 

JNS 

JMP 

DR_C3C: 

TEST 

JNS 

ADD 

ADD 

PUSH 

PUSH 

CALL 

MOV 

SUB 

ADD 

MOV 

ADD 

JMP 

CASE_3C: 

ADD 

PUSH 

PUSH 

CALL 

MOV 

SUB 

MOV 

ADD 

JMP 

TST_DYZ : 

TEST 

JNZ 

MOV 

SUB 

MOV 

CASE_4 : 

SUB 

PUSH 

PUSH 

CALL 

SUB 

JNS 

JMP 

C_5_OR_6 : 

MOV 

SUB 

SUB 

JNS 

JMP 

CASE_5 : 

MOV 

SUB 

MOV 

; 

MOV 

ADD 

JNZ 

JMP 

C_CASE5: 

MOV 

SUB 

MOV 

DIV 

SUB 

DR_C5: 

MOV 

SUB 

BX,  [DELTA_X] 

BX,  1 

C_CASE3 

DR_C3 

AX,  [DELTA_Y] 

DX,  0 

BX 

[L_ERROR] ,  AX 


END_CNT 
INC  CTR 


AX, 
AX, 
DR_C5C 

EXIT_DL 
[L_ERROR] , 
CASE  3C 


ADD  IN  CORRECTION  FACTOR  FOR 

SMOOTHING 

CORR  =  DY/(DX+1) 


;INIT  ERROR  VAL.  WITH  CORR.  FACT, 
;TEST  INCREMENT  COUNTER 


X_POS 

Y_POS' 

X_POS' 

Y_POS' 
LINE  SEG 


8000H  ;TEST  FOR  ERROR  <  0 
; ERROR  <  0 


AX, 

'L  ERROR' 

AX, 

'DELTA  X' 

AX, 

'DELTA  Y' 

'L  ERROR 

,  AX 

'INC  CTR' 

,  1 

DR  c: 

-1 

'Y  POS 

1 

"X  POS' 

'Y  POS 

LINE  SEG 

AX, 

L  ERROR 

AX, 

;delta_x; 

lERROR  >=  0 


L_ERROR 
INC_CTR 
DR_C3 
[DELTA_Y] , 
C_5_OR_6 
AX,  OFFFFH 
AX,  [DELTA 
'DELTA  X] , 


AX 
1 

7FFFH  ;TEST  FOR  DY  >  0 


X] 
AX 


: PROCESS  SPECIAL  CASE  WHERE  DX  <  0 
;AND  DY  =  0 


X_POS 

X_POS 

Y_POS 
LINE_SEG 

DELTA_X] ,  1 
CASE_4 
EXIT_DL 
AX,  0 

AX,  [DELTA_X 
AX,  [DELTA_Y 
CASE_5 
CASE_6 
AX,  0 

AX,  [DELTA_X] 
[END_CNT] ,  AX 

BX,  [DELTA_Y] 
BX,  1 
C_CASE5 
DR_C5 
AX,  0 

[DELTA_X] 


AX, 
DX, 
BX 
[L- 

AX, 
AX, 


ERROR" 


AX 


END_CNT 
INC  CTR 


■CASE  3  OR  4.   DX  <  0  &  DY  >  0 


;DY  <=  ABS(DX) 


ADD  IN  CORRECTION  FACTOR  FOR 

SMOOTHING 

CORR  =  DX/(DY+1) 


;INIT  ERROR  WITH  CORR.  FACT. 
;TEST  INCREMENT  COUNTER 
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DR  C5C 


CASE  5C: 


CASE  6: 


C  CASE6 


DR  C6 


DR  CSC: 


CASE  6C 


EXIT  DL 


JMS 

JMP 

TEST 

JMS 

SUB 

PUSH 

PUSH 

CALL 

MOV 

ADD 

MOV 

ADD 

JHP 

SUB 

ADD 

PUSH 

PUSH 

CALL 

MOV 

ADD 

ADD 

HOV 

ADD 

JMP 

MOV 

MOV 

MOV 
SUB 
JNZ 
JMP 
MOV 
MOV 
DIV 
MOV 

MOV 

SUB 

JNS 

JMP 

TEST 

JNS 

SUB 

ADD 

PUSH 

PUSH 

CALL 

MOV 

ADD 

ADD 

MOV 

ADD 

JMP 

ADD 

PUSH 

PUSH 

CALL 

MOV 

ADD 

MOV 

ADD 

JHP 

POP 

POP 

POP 

POP 

POP 

POP 

PUSH 


DR_C5C 
EXIT_DL 
[L_ERROR] , 
CASE_5C 

X_POS' 

X_POS' 

Y_POS' 
LINE  SEG 

AX,  Tl_error 

AX,  [DELTA_Y 

'l_errorL  ax 

INC_CTR] ,  1 
DR  C5 


8000H  ;TEST  IF  ERROR  <  0 
; ERROR  <  0 


X_POS 
Y_POS" 
X_POS' 
Y_POS' 

LIME  SEG 


:  ERROR  >=  0 


AX, 
AX, 
AX, 


L_ERROR 

DELTA_X 
DELTA_Y 
AX 


L_ERROR 

INC_CTR1 ,  1 
DR_C5 
AX,  [DELTA_Y] 
[END_CNT],  AX 

BX,  1 

BX,  [DELTA_X] 

C_CASE6 

DR_C6 

AX,  [DELTA_Y] 

DX,  0 

BX 

[L_ERROR] ,  AX 


END_CNT 
INC  CTR 


AX, 

AX, 

DR_C^C 

EXIT_DL 

[L_ERROR] , 

CASE_6C 

X_POS 

Y_POS 

X_POS 

Y_POS 
LINE_SEG 
AX, 


;ABS(DX)  <  DY 


ADD  IN  CORRECTION  FACTOR  FOR 

SMOOTHING 

CORR  =  DY/(DX+1) 


;INIT  ERROR  WITH  CORR.  FACT, 
;TEST  INCREMENT  COUNTER 


8000H  ;TEST  FOR  ERROR  <  0 
; ERROR  <  0 


AX, 

AX, 


[L_ERROR 
[INC_CTR 
DR_C6 
^Y_POS 

X_POS 

Y_POS 
LINE  SEG 


L_ERROR 

DELTA_X 
DELTA  Y 


AX 
1 


;  ERROR  >=  0 


AX, 
AX, 


L_ERROR 
INC_CTR 

DR_C6 

DS 

AX 

BX 

BX 

BX 

BX 

AX 


L_ERROR 
DELTA_X 
AX 


1 


PREPARE  TO  EXIT  PROCEDURE  BY 
RESTORING  REGISTERS  AND  THEN 
REMOVE  INPUT  PARAMETERS 
FROM  STACK 


RET 
END  PROC  DRAWW_LINE; 


PROCEDURE 
THE  POSIT 
PROC  LINE 


XBITl: 

XBIT2: 

XBIT3: 

XBIT4: 

XBIT5: 

XBIT6: 

XBIT7  : 
OUT  LINE: 


LSC  MIX 


LINE_SE 
ION  INTO 
SEG; 

MOV 

MOV 

POP 

CALL 

CALL 

POP 

MOV 

AND 

JNZ 

MOV 

MOV 

JMP 

SUB 

JNZ 

MOV 

MOV 

JMP 

SUB 

JNZ 

MOV 

MOV 

JMP 

SUB 

JNZ 

MOV 

MOV 

JMP 

SUB 

JNZ 

MOV 

MOV 

JMP 

SUB 

JNZ 

MOV 

MOV 

JMP 

SUB 

JNZ 

MOV 

MOV 

JMP 

MOV 

MOV 

CMP 

JNS 

MOV 

MOV 

SEG 

AND 

MOV 

MOV 

SEG 

AND 

MOV 

MOV 

SEG 

AND 

MOV 

MOV 

SEG 

OR 


G  ACCEPTS  AS  INPUT  AN  X  AND  Y  POSITION  AND  CONVERTS 
DISPLAYABLE  PIXEL  DATA 


[SEGMENT_E1 ,  ES 

ES,  [COL_PL_ADDR 

[RET_LS] 

ADJ_SL 

REL_VID_ADDR 

BX 

AX,   rx_pos] 

AX,  7 

XBITl 

DL,  80H 

CL,  7FH 

OUT_LINE 

AL,  1 

XBIT2 

DL,  40H 

CL,  OBFH 

OUT_LINE 

AL,  1 

XBIT3 

DL,  20H 

CL,  ODFH 

OUT_LINE 

AL,  1 

XBIT4 

DL,  lOH 

CL,  OEFH 

OUT_LINE 

AL,  1 

XBIT5 

DL,  8 

CL,  0F7H 

OUT_LINE 

AL,  1 

XBIT6 

DL,  4 

CL,  OFBH 

OUT_LINE 

AL,  1 

XBIT7 

DL,  2 

CL,  OFDH 

OUT_LINE 

DL,  I 

CL,  OFEH 

[COL_MIX] ,  1 

LSC_MIX 

AX,  OCOOOH 

ES,  AX 

ES 

[BX] ,  CL 

AX,  ODOOOH 

ES,  AX 

ES 

[BX] ,  CL 

AX,  OEOOOH 

ES,  AX 

ES 

[BX]   CL 

AX,  [C0L_PL1] 

ES,  AX 

ES 

[BX] ,  DL 


;SAVE  SEG  E  STATUS 
]  ; ENABLE  SELECTED  COLOR 
;SAVE  RETURN  ADDRESS 
CONVERT  Y  POS.  TO  DISPLAYABLE  S.L. 
USE  X  &  Y  TO  CALC  REL .  BYTE  ADDR. 
BX  REGISTER  HOLDS  REL.  BYTE  ADDR. 
MOV  X  POSITION  TO  AX  REGISTER  AMD 
CALCULATE  X  BIT  POSITION  WITHIN  A 
BYTE  FOR  DISPLAY  PURPOSES 


TEST  IF  MIXING  ENABLED 

CLEAR  SELECTED  LOCATION  IN  ALL 
COLOR  PLANES  IF  NO  MIXING 


; SELECT  E  SEGMENT  FOR  ADDRESSING  OF 
rVIDEO  OUTPUT  THEN  OUTPUT  A  BYTE 
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AX,  [C0L_PL2] 

ES,  AX 

ES 

[BX]   DL 

AX,  [C0L_PL3] 

ES,  AX 

ES 

[BX] ,  DL 

[RET  LS] 

ES,  TSEGMENT_E] 


MOV 
MOV 
SEG 
OR 
MOV 
MOV 
SEG 
OR 

PUSH 
MOV 
RET 
END  PROC  LIME_SEG; 

PROCEDURE  CIRCLE  INPUTS  X  &  Y  COORDINATES  OF  THE  CIRCLE  CENTER 


•RESTORE  RETURN  ADDRESS 
:RESTORE  SEG  E 


AND  A  RADIUS  VALUE 

PROC  CIRCLE; 

MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
SHL 
MOV 
SUB 
MOV 

CIRC_LP :  MOV 
SUB 
JNS 
POP 
POP 
POP 
POP 
PUSH 
RET 


IT  THEN  DRAWS  A  CIRCLE 


BP,  SP 
AX,  [BP+6] 
[X_CTR] ,  AX 
AX,  [BP+4] 
[Y_CTR] ,  AX 
DX,  [BP+2] 


Y  REL' 

,  DX 

X  REL] 

,  0 

CL,  I 

DX,  CL 

AX,  3 

AX,  DX 

[P  VAL] ,  AX 

AX, 

Y  REL 

AX, 

X  REL 

DR  CIRC 

AX 

BX 

BX 

BX 

AX 

;GET  X  CENTER  COORDINATE  OFF  STACK 

;GET  Y  CENTER  COORDINATE  OFF  STACK 

;GET  RADIUS  VALUE  AND  SET 

; INITIAL  VALUES  FOR  X  AND  Y  COORD. 


;TEST  IF  FINISHED  DRAVJING  CIRCLE 


; REMOVE  INPUT  PARAMETERS  FROM  STACK 


;EXIT  SUBROUTINE 


; POINTS  ON  CIRCLE 
; SCALED  BY  1/2  TO 
DR_CIRC:     MOV 
MOV 
ADD 
MOV 
PUSH 
MOV 
MOV 
SHR 
ADD 
PUSH 
CALL 
POP 
PUSH 
CALL 
PUSH 
CALL 
MOV 
MOV 
SUB 
MOV 
PUSH 
PUSH 
CALL 
PUSH 
CALL 
PUSH 
MOV 


ARE  PLOTTED  IN  GROUPS  OF  8  WITH  THE  Y  COORDINATE 
COMPENSATE  FOR  X:Y  RATIO  IN  THE  DISPLAY 


AX,  [X_CTR 
DX,  [X_REL 
AX,  DX 
[X_POS] ,  AX 
AX 

AX,  [Y_REL] 
CL,  1 
AX,  CL 
AX,  [Y_CTR] 
AX 

ADJ_SL 
'Y_POS' 
Y_POS' 
REL_VID_ADDR 
[X_POS] 
CIR_PIXEL 
AX,  [X_CTR' 
DX,  [X_REL' 
AX,  DX 
[X_POS] ,  AX 
AX 

[Y_POS] 
REL_VID_ADDR 
[X_POS] 
CIR_PIaEL 
[X_POS] 
BX,  [Y_REL] 


■CALCULATE  POINT  1 


;PLOT  (X_CENTER+X,  Y_CENTER+Y) 
/CALCULATE  POINT  2 


;PLOT  (X_CENTER-X,  Y_CENTER+Y) 
; CALCULATE  POINT  3 
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MOV 

SHR 

MOV 

SUB 

PUSH 

CALL 

PC? 

PUSH 

CALL 

PUSH 

CALL 

MOV 

MOV 

ADD 

MOV 

PUSH 

PUSH 

CALL 

PUSH 

CALL 

MOV 

MOV 

ADD 

MOV 

PUSH 

MOV 

MOV 

SHR 

ADD 

PUSH 

CALL 

POP 

PUSH 

CALL 

PUSH 

CALL 

MOV 

MOV 

SUB 

MOV 

PUSH 

PUSH 

CALL 

PUSH 

CALL 

PUSH 

MOV 

MOV 

SHR 

MOV 

SUB 

PUSH 

CALL 

POP 

PUSH 

CALL 

PUSH 

CALL 

MOV 

MOV 

ADD 

MOV 

PUSH 

PUSH 

CALL 

PUSH 

CALL 

TEST 


CL,  1 

BX,  CL 

AX,  [Y  CTR 

AX,  BX 

AX 

ADJ  SL 

Y  POS 

'Y  POS' 

REL_VID_ADDR 

[X_POS] 

CIR_PIXEL 

AX,  [X_CTR' 

DX,  [X_REL" 

AX,  DX 

[X_POS] ,  AX 

AX 

[Y_POS] 

REL_VID_ADDR 

[X_POS] 

CIR_PIXEL 

AX,  [X_CTR' 

DX,  [Y_REL" 

AX,  DX 

[X_POS] ,  AX 

AX 

AX,  [X_REL] 

CL,  1 

AX,  CL 

AX,  [Y_CTR] 

AX 

ADJ_SL 

Y_POS 

Y_POS 
REL_VID_ADDR 
[X_POS] 
CIR_PIXEL 
AX,  [X_CTR" 
DX,  [Y_REL 
AX,  DX 
[X_POS] ,  AX 
AX 

[Y_POS] 
REL_VID_ADDR 
[X_POS] 
CIR_PIXEL 
[X_POS] 
BX,  [X_REL] 
CL,  1 
BX,  CL 
AX,  [Y_CTR] 
AX,  BX 
AX 
ADJ_SL 

Y_POS' 

Y_POS' 
REL_VID_ADDR 
[X_POS] 
CIR_PIXEL 
AX,  [X_CTRl 
DX,  [Y_RELJ 
AX,  DX 
[X_POS] ,  AX 
AX 

[Y_POS] 
REL_VID_ADDR 
[X_POS] 
CIR_PIXEL 

[P_VAL] ,  8000H 


;PLOT  (X_CENTER-X,  Y_CENTER-Y) 
; CALCULATE  POINT  4 


;PLOT  (X_CENTER+X,  Y_CENTER-Y) 
; CALCULATE  POINT  5 


;PLOT  (X_CENTER+Y,  Y_CENTER+X) 
; CALCULATE  POINT  6 


;PLOT  (X_CENTER-Y,  Y_CENTER+X; 
; CALCULATE  POINT  7 


;PLOT  (X_CENTER-Y,  Y_CENTER-X) 
; CALCULATE  POINT  8 


;PLOT  (X_CENTER+Y,  Y_CENTER-X) 
;TEST  P  FOR  NEGATIVE  VALUE 


:)0 


P  DECY: 


JMS 
MOV 
MOV 
SHL 
ADD 
ADD 
ADD 
JMP 
MOV 
MOV 
SUB 
SHL 
ADD 
ADD 
SUB 
ADD 
JMP 


P  DECY 

CL,  2 

AX,  [X  REL] 

AX,  CL 

AX,  6 

P  VAL' ,  AX 
'X  REL'  ,  1 

CIRC  LP 

CL,  2 

AX,  X  REL' 
AX,  'Y  REL' 

AX,  CL 

AX,  10 

P  VAL 

,  AX 

Y  RELl 

,  1 

X  REL' 

,  1 

CIRC  LP 

;P  :=  P  +  (4  '*^  X)  +  6 

; INCREMENT  X  COUNT 

;P  :=  P  +  4  ^  (X  -  Y)  +  10 


; DECREMENT  Y  COUNT 
; INCREMENT  X  COUNT 


END  PROC  CIRCLE; 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk-kkkkkkkkkkkkkkkkkkkkkkk 


PROCEDURE  CIR_?I 
A  COORDINATE  POS 

PROC  CIR_PIaEL; 
MOV 
POP 
POP 
POP 
AND 
JNZ 
MOV 
MOV 
JMP 

CPBITl :  SUB 
JNZ 
MOV 
MOV 
JMP 

CPBIT2:  SUB 
JNZ 
MOV 
MOV 
JMP 

CPBIT3:  SUB 
JNZ 
MOV 
MOV 
JMP 

CPBIT4:  SUB 
JNZ 
MOV 
MOV 
JMP 

CPBIT5:  SUB 
JNZ 
MOV 
MOV 
JMP 

CPBIT6:  SUB 
JNZ 
MOV 
MOV 
JMP 

CPBIT7 :  MOV 
MOV 

CPIX_ON:  MOV 
MOV 
SEG 
AND 
MOV 


XEL  ACCEPTS  AS  INPUT  A  RELATIVE  BYTE  ADDRESS  AND  AN 
ITION  AND  SETS  THE  CORRESPONDING  PIXEL 


segment  e' 
■ret_cpeT 

DX 
BX 

DX,  7 
CPBITl 
AL,  80H 
CL,  7FH 
CPIX_ON 
DL,  1 
CPBIT2' 
AL,  40H 
CL,  OBFH 
CPIX_ON 
DL,  1 
CPBIT3 
AL,  20H 
CL,  ODFH 
CPIX_ON 
DL,  1 
CPBIT4 
AL,  lOH 
CL,  OEFH 
CPIX_ON 
DL,  1 
CPBIT5 
AL,  8 
CL,  0F7H 
CPIX_ON 
DL,  1 
CPBIT6 
AL,  4 
CL,  OFBH 
CPIX_ON 
DL,  1 
CPBIT7 
AL,  2 
CL,  OFDH 
CPIX_ON 
AL,  1 


ES    ;SAVE  SEG  E  STATUS 
■SAVE  RETURN  ADDRESS 
:GET  X  POSITION 
:GET  RELATIVE  BYTE  ADDRESS 


CL, 

OFEH 

DX, 

OCOOOH 

ES, 

DX 

ES 

|BX 

],  CL 

DX, 

ODOOOH 

CLEAR  ALL  COLOR  PLANES  AT  SELECTED 
PIXEL  LOCATION  BEFORE  SETTING 
PIXEL  TO  DESIRED  COLOR 
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END  PROC  CI 

■k-k-k'k-k-k-k-k-k'k 


MOV 
SEG 
AND 
MOV 
MOV 
SEG 
AND 
MOV 
MOV 
SEG 
OR 
MOV 
MOV 
SEG 
OR 
MOV 
MOV 
SEG 
OR 

PUSH 
MOV 
RET 
R  PIXEL 


ES, 

ES 

[BX] 

DX, 

ES, 

ES 

[BX 

DX, 

ES, 

ES 

[BX] 

DX, 

ES, 

ES 

[3X] 

DX, 

ES, 

ES 
BX] 
RET 

ES, 


DX 

,  CL 

OEOOOH 

DX 


[C0L_PL1]  ;SET  PIXEL  TO  DESIRED  COLOR 
DX 

,  AL 

[C0L_PL2] 

DX 

,  AL 

[C0L_PL3] 

DX 

,  AL 
CPE] 
"[SEGHENT.E]   ;  RESTORE  SEG  E 


■kT^Trir-k-k^k 


PROCEDURE 
CORRESPOND 
PROC  SET  PI 


PBITl 


PBIT2: 


PBIT3 


PBIT4: 


PBIT5: 


PBIT6 


7r  X  7^  7; /T  TT  7^ 

SET_PIXEL 
ING  PIXEL 
XEL; 

NOV 

MOV 

POP 

MOV 

MOV 

CALL 

CALL 

POP 

MOV 

AND 

JNZ 

MOV 

MOV 

JMP 

SUB 

JNZ 

MOV 

MOV 

JMP 

SUB 

JNZ 

MOV 

MOV 

JMP 

SUB 

JNZ 

MOV 

MOV 

JMP 

SUB 

JNZ 

MOV 

MOV 

JNP 

SUB 

JNZ 

MOV 

MOV 

JNP 

SUB 

JNZ 


■^k-k-kkk-kkkk-kkk-kk-kk-kkkkk-kk-kkk-kkkkkkkkkkkkk-kk-kkk-kkkkkkkick 
kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 


ACCEPTS  AS  INPUT  AN  (X,Y; 
TO  THE  SYSTEM  COLOR 


COORDINATE  AND  SETS  THE 


BP,  SP 
"SEGMENT  E] , 
■RET  SPEj 

AX,  TBP+4] 
[X_POS] ,  AX 

ADJ_SL 

REL_VID_ADDR 

BX 

DX,  [X_POS] 

DX,  7 

PBITl 

AL,  80H 

CL,  7FH 

PIX_ON 

DL,  1 

PBIT2 

AL,  40H 

CL,  OBFH 

PIX_OM 

DL,  1 

PBIT3 

AL,  20H 

CL,  ODFH 

PIX_ON 

DL,  1 

PBIT4 

AL,  lOH 

CL,  GEFH 

PIX_ON 

DL,  1 

PBIT5 

AL,  3 

CL,  0F7H 

PIX_ON 

DL,  I 

PBIT6 

AL,  4 

CL,  OFBH 

PIX_ON 

DL,  1 

PBIT7 


ES 


SAVE  ES  STATUS 
SAVE  RETURN  ADDRESS 
GET  X  POSITION 


;GET  RELATIVE  BYTE  ADDRESS 
;MAKE  A  BIT  MASK 
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CLEAR  ALL  COLOR  FLAMES  AT  SELECTED 
PIXEL  LOCATION  BEFORE  SETTING 
PIXEL  TO  NEW  COLOR 


MOV 

MOV 

JHP 
PBIT7 :      MOV 

MOV 
PIX_ON:      MOV 

MOV 

SEG 

AND 

MOV 

MOV 

SEG 

AND 

MOV 

MOV 

SEG 

AND 

MOV 

MOV 

SEG 

OR 

MOV 

MOV 

SEG 

OR 

MOV 

MOV 

SEG 

OR 

PUSH 

MOV 

RET 
END  PROC  SET^PIXEL; 

.  ^k■k^^■k7r•ki^•ki^i^■k■k^ry^^ki^:^k•k•kiri^•kiri^■k•k7^i(■ki^i(i^■k^ki^■k:ki^■kiriri<ir•kiri(ir^k^^i^i<^ 


AL, 

2 

CL, 

OFDH 

PIX 

ON 

AL," 

"1 

CL, 

OFEH 

DX, 

OCOOOH 

ES, 

DX 

ES 

[BX] 

,  CL 

DX, 

ODOOOH 

ES, 

DX 

ES 

[BX] 

,  CL 

DX, 

OEOOOH 

ES, 

DX 

ES 

[BX] 

,  CL 

DX, 

[COL  PLl] 

ES, 

DX 

ES 

[BX] 

,  AL 

DX, 

COL  PL2] 

ES, 

DX 

ES 

[BX] 

,  AL 

DX, 

[COL  PL3] 

ES, 

DX 

ES 

'BX] 

,  AL 

RET  SPEl 

ES, 

[SEGMENT_E] 

; RESTORE  RETURN  ADDRESS 
; RESTORE  SEGMENT  E 


; PROCEDURE  RESET_PI 

;THE  CORRESPONDING 

PROC  RESET_PIXEL; 
MOV 
MOV 
POP 
MOV 
MOV 
CALL 
CALL 
POP 
MOV 
AND 
JNZ 
MOV 
JMP 

RBITl:  SUB 
JNZ 
MOV 
JMP 

RBIT2:  SUB 
JNZ 
MOV 
JMP 

RBIT3:  SUB 
JNZ 
MOV 
JHP 

RBIT4:  SUB 
JNZ 
MOV 
JMP 

RBIT5:  SUB 
JNZ 


XEL  ACCEPTS  AS  INPUT  AN  (X,Y)  COORDINATE  AND  RESETS 
PIXEL  BY  WRITING  "0"  TO  ALL  COLOR  PLANES 


BP,  SP 
'SEGMENT  E] , 
■RET  RPEj 

AX,  rBP+4] 
[X_POS] ,  AX 

ADJ_SL 

REL_VID_ADDR 

BX 

DX,  [X_POS] 

DX,  7 

RBITl 

AL,  7FH 

PIX_OFF 

DL,  1 

RBIT2 

AL,  OBFH 

PIX_OFF 

DL,  1 

RBIT3 

AL,  ODFH 

PIX_OFF 

DL,  1 

RBIT4 

AL,  OEFH 

PIX_OFF 

DL,  1 

RBIT5 

AL,  0F7H 

PIX_OFF 

DL,  1 

RBIT6 


ES  ;SAVE  ES  STATUS 

;SAVE  RETURN  ADDRESS 
;GET  X  POSITION 


;GET  RELATIVE  BYTE  ADDRESS 


;MAKE  A  BIT  MASK 


5S 


RBIT6 


RBIT7: 
FIX  OFF 


MOV 

JMP 

SUB 

JNZ 

MOV 

JMP 

MOV 

MOV 

MOV 

SEG 

AMD 

MOV 

MOV 

SEG 

AND 

MOV 

MOV 

SEG 

AND 

PUSH 

MOV 

RET 


AL,  OFBH 
PIX_OFF 
DL,  1 
RBIT7 
AL,  OFDH 
PIX_OFF 
AL,  OFEH 
DX,  OCOOOH 
ES,  DX 
ES 

[BX] ,  AL 
DX,  ODOOOH 
ES,  DX 
ES 

[BX] ,  AL 
DX,  OEOOOH 
ES,  DX 
ES 

'bX]  ,  AL 

■ret   RPE] 
ES,  ISEGMENT.E] 


; RESTORE  RETURN  ADDRESS 
; RESTORE  SEGMENT  E 


ENp,PROC,RESET_PIXEL; , 

■k  7^  ■k  7r  7^ -k  7^  7;  7^  7r  ■k  7^  t:  TT -k  7^  7^  7ri^7r-k-k:k:k'k-ky^  7^  ■k-k-k-k'k'k-ki^-k^ 
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PROCEDURE  INOUIRE_COLOR  IS  USED  TO  INTERFACE  WITH  HIGHER  LEVEL  ADA 
PROGRAMS  IN  ORDER  TO  HANDLE  I/O  PARAMETER  PASSING 
PROC  INQUIRE_COLOR; 


MOV 

PUSH 

PUSH 

PUSH 

CALL 

POP 

POP 

MOV 

MOV 

RET 


BP,  SP 
BP 

BP+6' 

BP+4' 
INQ_C0L0R 
AX 
BP 

BX,  [BP+2] 
[BX] ,  AX 


PUSH  X  POSITION 
PUSH  Y  POSITION 
GET  PIXEL  COLOR 
COLOR  VAL  RETURNED 


; RETURN  PIXEL  COLOR 


END  PROC  INOUIRE_COLOR; 

kkkkkkkkkk'Kkkkk^kkkkkT^ki^k-kkkkkkk'k-kk'k-k-k-k-k-k-kk^k-k'k-k-kk-kkkkkkk-k-k-kkkk-kkkk-k-kkkk 
kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk7<:kk-kkkkkkkkkkkkkkkk-k-k-k7r-k7<:k-kkk-k-k-k-k-kk-kk7<: 

PROCEDURE  INQ_COLOR  ACCEPTS  X  &  Y  COORDINATES  AS  AN  INPUT  AND 
RETURNS  THE  PIXEL  COLOR  CODE  OF  THAT  LOCATION 
PROC  INQ_COLOR; 

BP,  SP 

AX,  [BP+4] 

[X_P0S1 ,  AX 


Bl: 


MOV 

MOV 

MOV 

POP 

CALL 

CALL 

POP 

PUSH 

CALL 

POP 

PUSH 

MOV 

MOV 

SEG 

MOV 

AND 

JNZ 

JMP 

MOV 

MOV 

SEG 

MOV 

AND 

JNZ 

JMP 


[RET_IC] 

ADJ_SL 

REL_VID_ADDR 

BX 

[X_POS] 

X_MASK 

cx 

ES 

AX, 

ES, 

ES 

DL, 

DL, 

Bl 

N0_ 

AX, 

ES, 

ES 

DL, 

DL, 

B2 

B  NO  R 


OCOOOH 
AX 

[BX] 
CL 


ODOOOH 
AX 


[Bx; 

CL 


SAVE  RETURN  ADDRESS 


;READ  MASK 
;SAVE  ES  STATUS 


:READ  DATA  IN  BLUE  BIT  PLANE 
;TEST  IF  BIT  SET 


•READ  DATA  IN  RED  BIT  PLANE 
:TEST  IF  BIT  SET 
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B2: 


B3: 

BR_NO_G : 
B  NO  R: 


B4: 

B_NO_RG : 
MO    B: 


B5 


B6: 

R_NO_BG ; 
NO   BR: 


B7: 

NO_RGB : 
EXIT    IC: 


END   PROG 

■k  7^  ■k  7;  TK  ■k  TT 


MOV 

MOV 
SEG 
MOV 
AND 
JNZ 
JMP 
MOV 
JMP 
MOV 
JMP 
MOV 
MOV 
SEG 
MOV 
AND 
JNZ 
JMP 
MOV 
JMP 
MOV 
JMP 
MOV 
MOV 
SEG 
MOV 
AND 
JNZ 
JMP 
MOV 
MOV 
SEG 
MOV 
AND 
JNZ 
JMP 
MOV 
JMP 
MOV 
JMP 
MOV 
MOV 
SEG 
MOV 
AND 
JNZ 
JMP 
MOV 
JMP 
MOV 
POP 
PUSH 
PUSH 
RET 
INQ_COLOR • 

•kk-k'!^7;7r-?:-k7r-k7;-! 


[BX] 
CL 


AX,    OEOOOH 

ES,    AX 

ES 

DL,     [BX] 

DL,    CL 

B3 

BR_NO_G 

AX,    0 

EXIT_IC 

AX,    2 

EXIT_IC 

AX,    OEOOOH 

ES,    AX 

ES 

DL 

DL 

B4' 

B_NO_RG 

AX,    1 

EXIT_IC 

AX,    3 

EXIT_IC 

AX,    ODOOOH 

ES,    AX 

ES 

DL 

DL 
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NO_BR 

AX,    OEOOOH 

ES,    AX 

ES 

DL, 

DL, 

Bo 

R_NO_BG 

AX,  4 

EXIT_IC 

AX,    6 

EXIT_IC 

AX,    OEOOOH 

ES,    AX 

ES 

DL, 

DL 

B7 

NO_RGB 

AX,    5 

EXIT_IC 

AX,    7 

ES 

AX 

[RET_IC] 


[BX^ 
CL 


[BX] 
CL 


[BX: 
CL 


:RED    IS    SET,    TEST   GREEN 


;READ  DATA  IN  GREEN  BIT  PLANE 
;TEST  IF  BIT  IS  SET 


; COLOR   IS   WHITE 
; COLOR  IS  MAGENTA 
;BLUE    IS    SET,    RED    IS   NOT,    TEST   GREEN 

;READ   DATA   IN  GREEN   BIT   PLANE 


COLOR  IS  CYAN 
COLOR  IS  BLUE 
NO   BLUE,    TEST   RED 

;READ   DATA   IN   RED   BIT   PLANE 

;RED  IS  SET,  NO  BLUE,  TEST  GREEN 

;READ   DATA   IN   GREEN   BIT   PLANE 

COLOR   IS   YELLOW 

COLOR    IS   RED 

NO   BLUE,    NO   RED,    TEST   GREEN 

;READ   DATA   IN  GREEN   BIT   PLANE 

; COLOR   IS   GREEN 

; COLOR   IS   BLACK 
/RESTORE   ES 

; RESTORE   RETURN   ADDRESS 


PROCEDURE  X_MASK  ACCEPTS  AN  X  COORD 
AND  RETURNS  A  BIT  MASK  BASED  ON  THE 

PROC  X_HASK; 

POP        DX 
POP        AX 
AND        AX,  7 
JNZ        MBITl 
MOV        AX,  8 OH 
JMP         EXIT_XM 

MBITl:  SUB  AX,  1 
JNZ  MBIT2 
MOV        AX,  40H 


INATE  POSITION  AS  INPUT 
X  COORDINATE 

;SAVE  RETURN  ADDRESS 
;GET  X  POSITION 
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MBIT2 


MBIT3 


MBIT4 


MBIT5 


MBIT6: 


HBIT7  : 
EXIT  XM: 


END  PROC 


■k -k -k -k -k -k  ir 


JMP 
SUB 
JMZ 
MOV 
JMP 
SUB 
JHZ 
MOV 
JMP 
SUB 
JNZ 
MOV 
JMP 
SUB 
JMZ 
MOV 
JMP 
SUB 
JNZ 
MOV 
JMP 
MOV 
PUSH 
PUSH 
RET 
X  MASK; 


EXIT_XM 
AX,  1 
MB  ITS 
AX,  2 OH 
EXIT_XM 
AX,  1 
MBIT4 
AX,  lOH 
EXIT_XM 
AX,  1 
MB  IT  5 
AX,  8 
EXIT_XM 
AX,  1 
MB  ITS 
AX,  4 
EXIT_XM 
AX,  1 
MBIT7 
AX,  2 
EXIT_XM 
AX,  1 
AX 
DX 


; RETURN  X  MASK 

; RESTORE  RETURN  ADDRESS 


x  :t  TT  Tr  X  X  X  7^ 


:«:  :^  X  X  rr  X  TT  TT 


ki^kkkkkkkkkkkkkkkkkkk-kkk-kkkkkkkkkk'kk-k-k-kkkkkk-k-k-kk-kkkkkkkk 
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PROCEDURE  BOUNDARY_FI 
COLOR,  AMD  A  BOUNDARY 
FILL  COLOR  UP  TO  THE 
PROC  BOUNDARY_FILL; 

POP 

POP 

POP 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

CALL 

PUSH 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

RET 
END  PROC  BOUNDARY 


LL  ACCEPTS  AS  INPUT  X  AND  Y  COORDINATES,  A  FILL 

COLOR  AND  PERFORMS  A  SCREEN  FILL  WITH  THE 
SPECIFIED  BOUNDARY 


RET_FILL] 

B_COLOR] 

F_COLOR" 

SEGMENT_FE],  ES 
AX,  [COL_PLl] 
[SAV  C0L1_STAT] ,  AX 
AX,  TC0L_PL2] 
[SAV  C0L2_STAT] ,  AX 
AX,  TC0L_PL3] 
[SAV_C0L3_STAT] ,  AX 
B_FILL 
[RET  FILL] 
ES,  TSEGMENT_FE] 
AX,  [SAV  C0L1_STAT] 
[COL  PLlJ,  AX 
AX,  TSAV  C0L2_STAT] 
[COL  PL2T,  AX 
AX,  TSAV  C0L3_STAT] 
[C0L_PL3j,  AX 


kkkkkkkkkkkkkkkkT^ 
kkkkkkkkkkkkkkkkk 

PROCEDURE  R_FILL 
IT  IS  USED  TO  AVO 
DO  NOT  CHANGE  ON 
PROC  B_FILL; 

POP 

MOV 

MOV 

POP 

POP 

PUSH 

PUSH 

PUSH 

PUSH 

PUSH 


FILL: 

kkkk-k-kkk-kkk-kkk-kk-k-kk-k-k-kkkkkk-k-kk-kk-kk-k-k-kk-k-kk-k-k-kk-k-k-k-kk'kk-k-k 
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IS  THE  RECURSIVE  PART  OF  THE  BOUNDARY  FILL  PROCEDURE. 
ID  UNNECESSARY  PASSING  OF  THE  COLOR  PARAMETERS  WHICH 
SUCCESSIVE  RECURRSIVE  CALLS. 


DX 

CX, 

BX, 
Y_POS 
X_P05 

DX 

CX 

BX 
X_POS 
Y  POS 


X_POS 
Y  POS 


;SAVE  RETURN  ADDRESS 


;GET  NEXT  Y  POSITION  OFF  STACK 
;GET  NEXT  X  POSITION  OFF  STACK 


;SAVE  PRESENT  X  POSITION 
;SAVE  PRESENT  Y  POSITION 
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CALL 

POP 

MOV 

CMP 

JMZ 

JMP 

TEST_FC :  MOV 
CMP 
JNZ 
JMP 

F_PIX:       PUSH 
PUSH 
CALL 
CALL 
PUSH 
PUSH 
CALL 
CALL 
MOV 
ADD 
PUSH 
PUSH 
CALL 
MOV 
SUB 
PUSH 
PUSH 
CALL 
MOV 
ADD 
PUSH 
/      PUSH 
CALL 
MOV 
SUB 
PUSH 
PUSH 
CALL 

EXIT_F :  POP 
POP 
RET 

END  PROC  B  FILL 


IMO_COLOR 

AX"" 

[P_COLOR] ,  AX 

AX,  [3_C0L0R] 

TEST_FC 

EXIT  F 

AX,  T?_COLOR 

AX,  [F_COLOR 

F_PIX 

EXIT_F 

'X_POS" 

Y_POS 
ADJ_SL 
REL_VID_ADDR 

X_POS] 

F_COLOR] 
COLOR 
CIR_PIXEL 
AX,  [X_POS] 
AX,  1 
AX 

[Y_POS] 
B_FILL 
AX,  [X_POS] 
AX,  1 
AX 

[Y_POS] 
B_FILL 
AX,  [Y_POS] 
AX,  1 
[X_POS] 
AX 

B_FILL 
AX,  [Y_POS] 
AX,  1 
[X_POS] 
AX 
B_FILL 

Y_POS" 

X  POS 


; COMPARE  COLOR  AT  PRESENT  LOCATION 
;WITH  BOUNDARY  COLOR 


; COMPARE  COLOR  AT  PRESENT  LOCATION 
;WITH  FILL  COLOR 


;SET  LOCATION  (X,Y)  TO  FILL  COLOR 


;CALL  B_FILL  PASSING  (X+1,Y) 


;CALL  B_FILL  PASSING  (X-1,Y) 


;CALL  B_FILL  PASSING  (X,Y+1) 


;CALL  B_FILL  PASSING  (X,Y-1) 
;RESTORE  POSITION  (X,Y) 


PROCEDURE  AREA_FI 
FILL  COLOR.   IT  F 
PRESENT  COLOR  OF 
PROC  AREA_FILL; 
POP 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
POP 
POP 
POP 
PUSH 
PUSH 
CALL 
POP 
PUSH 
PUSH 
CALL 
PUSH 
MOV 
MOV 


LL  ACCEPTS  AS  INPUT  AN  (X,Y)  POSITION  AND  A 
ILLS  AN  AREA  WHOSE  BOUNDARY  IS  DETERMINED  BY  THE 
THE  INPUT  (X,Y)  POSITION. 


ES 


■ret_afill] 
■segment_fe] 

AX,  [C0L_PL1] 
[SAV  C0L1_STAT] 
AX,  TC0L_PL2] 
[SAV  C0L2_STAT] 
AX,  TC0L_PL3] 
'SAV_C0L3_STAT] 

F_COLOR] 

Y_POS 

X_POS 

X_POS 

Y_POS 

ino_color 
'bIcolor] 

■X_PQS] 

"Y_F0S] 
A_FILL 

[RET  AFILL] 

ES,  TSEGMENT_FE] 

AX,  [SAV_C0L1_STAT] 


SAVE  RETURN  ADDRESS 


AX 

AX 

AX 

GET  FILL  COLOR  OFF  OF  STACK 


;GET  COLOR  OF  INPUT  POSITION 
;SAVE  REFERENCE  COLOR 


;CALL  RECURSIVE  FILL  PROCEDURE 
; RESTORE  RETURN  ADDRESS 
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MOV 
MOV 
MOV 
MOV 
MOV 
RET 


[COL  PLl] ,  AX 

AX,  TSAV  C0L2_STAT] 

[COL  PL2T,  AX 

AX,  TSAV  C0L3_STAT] 

[C0L_PL3T,  AX 


END  PROC  AREA_FILL; 


IS  THE  RECURSIVE  PART  OF  THE  AREA  FILL  PROCEDURE. 

ID  UNNECESSARY  PASSING  OF  THE  COLOR  PARAMETERS  WHICH 

SUCCESSIVE  RECURRSIVE  CALLS. 


;SAVE  RETURN  ADDRESS 


;GET  NEXT  Y  POSITION  OFF  STACK 
;GET  NEXT  X  POSITION  OFF  STACK 


;SAVE  PRESENT  X  POSITION 
;SAVE  PRESENT  Y  POSITION 


; COMPARE  COLOR  AT  PRESENT  LOCATION 
;WITH  AREA  COLOR 


PROCEDURE  A_FILL 
IT  IS  USED  TO  AVO 
DO  NOT  CHANGE  ON 
PROC  A_FILL; 

POP 

MOV 

MOV 

POP 

POP 

PUSH 

PUSH 

PUSH 

PUSH 

PUSH 

CALL 

POP 

MOV 

CMP 

JNZ 

PUSH 

PUSH 

CALL 

CALL 

PUSH 

PUSH 

CALL 

CALL 

MOV 

ADD 

PUSH 

PUSH 

CALL 

MOV 

SUB 

PUSH 

PUSH. 

CALL 

MOV 

ADD 

PUSH 

PUSH 

CALL 

MOV 

SUB 

PUSH 

PUSH 

CALL 
EXIT_AF :     POP 

POP 

RET 
END  PROC  A_FILL; 

.■ki:7^■k■k■k■k•k7^yr■k7^■ki^7^7^:ki^:7^•ki^^k7rir^k^M■k7^:■k■k•k7^;7^7^7^■k:kiri^ir■^ 

MAIN: 

END  ADAGRAPH; 


DX 

CX,  [X_POS] 

BX,  [Y  POSj 

'Y_POST 

X_POSj 
DX 
CX 
BX 

X_POS' 

Y_POS' 
INQ_COLOR 
AX 

[P_COLOR] ,  AX 
AX,  [B_COLOR] 
EXIT_AF 

X_POS' 

Y_POS' 
ADJ_SL' 
REL_VID_ADDR 

X_POS] 

F_COLOR] 
COLOR 
CIR_PIXEL 
AX,  [X_POS] 
AX,  1 
AX 

[Y_POS] 
A_FILL 
AX,  [X_POS] 
AX,  1 
AX 

[Y_POS] 
A_FILL 
AX,  [Y_POS] 
AX,  1 
[X_POS] 
AX 

A_FILL 
AX,  [Y_POS] 
AX,  1 
[X_POS] 
AX 
A_FILL 

Y_POS' 

X  POS" 


;SET  LOCATION  (X,Y)  TO  FILL  COLOR 


;CALL  A_FILL  PASSING  (X+1,Y) 


;CALL  A_FILL  PASSING  (X-1,Y) 


;CALL  A_FILL  PASSING  (X,Y+1) 


;CALL  A_FILL  PASSING  (X,Y-1) 
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